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Introdução 


Este livro contém muitos exercícios, 
quebra-cabeças e problemas para ajudá- 
lo a praticar o seu BASIC. Existem 
programas com linhas e variáveis em 
branco para você completar, listagens 
cheias de erros para você localizar e 
corrigir e idéias de programas para você 
escrever sozinho. Este livro cobre as 
principais instruções de BASIC, 
começando com PRINT e terminando 
com uma orientação detalhada para você 
escrever um programa de caça ao 
tesouro. 


Os programas que contêm erros 
estão assinalados por um “grilo” como o 
que aparece na figura acima. Quando 
encontrar um “grilo”, lembre-se de que 
terá que localizar e corrigir os erros para 
que o programa funcione. Em outros 
programas estão faltando linhas e 
variáveis. Às linhas que faltam estão 
indicadas por um asterisco, e os espaços 
a serem completados, por pontos de 
interrogação. 


No final do livro você encontrará 
uma discussão detalhada de todos os 
problemas e programas propostos. Se 
ficar atrapalhado, especialmente nos 
programas mais compridos, use as 
respostas como orientação. Muitas vezes, 
as primeiras linhas da resposta a um 
problema podem ajudá-lo a resolver 
outro problema ou a completar o 
Programa sozinho. 


Pode ser que a listagem que aparece 
neste livro como resposta a um dos 
problemas seja diferente do programa 
que você escreveu. Se o seu programa 
funcionar corretamente, tudo bem; 
existem muitas maneiras de escrever o 
mesmo programa. Compare a sua 
resposta com a do livro para ver qual a 
que contém o menor número de 
instruções. 

E ( ss» 


Todos os programas que aparecem 
neste livro foram escritos em um dialeto 
popular de BASIC e deverão funcionar, 
sem grandes alterações, na maioria dos 
microcomputadores. Algumas instruções 
variam de computador para computador; 
assim, se você tentar rodar um programa 
e receber uma mensagem de erro, 
verifique se as instruções de BASIC são 
as corretas para o modelo de micro que 
está usando. Para ajudá-lo, existem duas 
tabelas de conversão na página 47. 

Se você tiver alguma dúvida a 
respeito das instruções de BASIC, 
consulte as páginas 45 e 46, onde são 
definidas todas as palavras de BASIC 
usadas neste livro. São dadas instruções 
especiais para escrever programas para 
micros da família Sinclair (TK-83, TK-85, 
CP-200) e também respostas adequadas 
para esses computadores. 


Exercícios com PRINT 


Nestas duas páginas, você vai praticar o uso da instrução PRINT, que diz 
ao micro para mostrar alguma coisa na tela. Você pode usar PRINT como 
um comando direto, isto é, sem número de linha. Nesse caso, o 
computador executará imediatamente a instrução. Depois de um comando 
direto, você tem que apertar RETURN (ou ENTER ou NEWLINE ou CR, 


dependendo do micro) para que sua ordem seja cumprida. 


"PEIXE" 
"2 PEIXES" 


PR de 


PRINT 
PRINT 
PRINT 


Não se esqueça de apertar 
RETURN depois de cada 
comando. 


Experimente escrever os comandos 
diretos acima no seu micro. Quando 
você diz ao computador para mostrar 
letras, ou letras e números misturados, 
eles devem ser colocados entre aspas na 
instrução. Números sozinhos não 
precisam de aspas. 


Todas as instruções acima dizem ao 
micro em que lugar da tela deve 
começar a mensagem. Experimente 
para ver a diferença. Os sinais de 
pontuação têm significados especiais em 


Como corrigir erros e 
alterar programas 


Os erros nos 
programas são 
chamados de “grilos”. 
Podem ser causados 
por erros na hora de 
copiar os programas. 
Você precisa saber 
como corrigir erros e 
alterar programas no 
seu micro. 


DELETE ou 


uitos micros têm 
ma tecla chamada 


2+2+E 
bx 
15--4 
16/4 
SOR (16) 


IS A 


PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 


Você também pode usar PRINT para 
fazer contas. À figura acima mostra 
algumas operações simples usando os 
símbolos matemáticos do BASIC. 


BASIC. À vírgula diz ao computador 
para deixar alguns espaços em branco, 
e o ponto-e-vírgula para mostrar a 
palavra ou número seguinte na mesma 
linha, sem deixar nenhum espaço. 


Para acrescentar uma letra, 
você precisa mover O cursor. 
Consulte o manual do seu 
micro para saber coma usar as 
teclas de controle do cursor. 


Para apagar uma linha inteira, 
escreva apenas o número da 
linha e aperte RETURN. 


Alguns quebra-cabeças 

Eis um programa simples para você experimentar. Ele faz o computador exibir a 
mensagem que aparece na figura abaixo, à direita. Rode o programa e depois veja 
se consegue modificá-lo para que a mensagem fique como nas telas abaixo. Em 
caso de dúvida, consulte os comandos diretos da página anterior. 


10 PRINT "QUAL O SEU NOMES?" 


Faz o computador 
esperar que você 

20 INPUT As [— escreva O seu nome 
o guarda em uma 
variável chamada A$ 


PRINT sozinho 


30 PRINT |— LEE a pular uma 


40 PRINT"BOM DIA 
Diz ao computador 


] para imprimir a 
PRENT AS palavra guardada em 


AS. 
Escreva o programa no micro, apertando RETURN (ou a tecla equivalente) depois 


de cada linha. No final, escreva RUN e aperte RETURN. 


| 


GIL. USER NOME 
CER TU 


en 
o 


Mude o programa 4 
para a tela ficar 
assim. 


BOM DIA EETO 


QUAL O SEU NOMES 
“BETO 


TCHAU 


CAN 
22/20 |S BETO 


A diferença entre o programa e os comandos diretos da página anterior é que 
cada linha de instruções em um programa tem um número. O computador guarda 
as instruções na memória e só as executa quando você escreve RUN. Se você 
numerar as linhas de dez em dez, poderá acrescentar novas instruções sem ter que 
numerar de novo todo o programa. 


Para listar O 
programa na tela, 
escreva LIST. 


Para apagar todo 
o programa, 
escreva NEW. 


RO PRINT ES LE RO 
O PRINT "PROGRAMA" 
Do PRINT CDELO. 


Você pode acrescentar novas linhas a 
um programa ou mudar linhas antigas, 
escrevendo-as de novo. Experimente 
escrever o programa acima e veja o 
que acontece quando você manda listá- 
lo e quando manda executá-lo. 


Uso de variáveis 
Variável é um espaço na memória do micro onde é armazenada uma 
informação. Para dizer ao computador para guardar uma informação em 
uma variável, você pode usar as instruções LET ou INPUT. Uma 
informação que consiste em palavras ou misturas de letras, números e 
símbolos é chamada de string. Uma string deve estar sempre entre aspas e 
o nome da variável correspondente deve terminar por um ciftrão. 


10 LET Asié o 10 PRINT "QUAL O SEU NOME?! 
| 20 LET R$="SAPOS-MARTELOS" -| | 20 INPUT N$ 
30 PRINT A “30 PRINT “QUANTOS amos TEM?" 


7 40 FRINT R$ Ae R$ 40 INPUT A 
são 50 PRINT N$4" TEM a 
RUN nomes de 


16 
APOS- -MARTELOS 


A instrução LET diz ao computador 


variáveis. 


Variável ria 


instrução INPUT faz o computador 


para rotular um espaço na memória e esperar que você escreva a informação 
guardar alguma informação nesse durante a execução do programa. 
espaço. 


Alguns desses 
nomes de variáveis 
contêm palavras de 
BASIC e não são 
permitidos. Quais 
são eles? 


4LET LETRA$="BOM DIA!” 
ET DEZ=10 

LET RUN$="MAIS RATOS. 
LET PULGA$="50 PULGAS" 


Se você usar palavras como nomes dé 


Como escolher os nomes das variáveis 


Quais desses nomes são 
permitidos no seu micro? 


LET B$="6422 RATOS" 
LET B5=6422 
LET kKi=99 

LET FL$="PULGA” 


Os nomes permitidos para as variáveis 


variam de micro para micro. O TK-83, variáveis, não deve escolher nomes que 
por exemplo, só aceita nomes de uma contenham palavras de BASIC, para 
letra para as variáveis string.* não confundir o computador. 
Experimente as linhas acima para ver 
Palavras e variáveis quais as que o seu micro aceita. 


10 LET R$="SAPO* 
20 LET 5=66 


30 PRINT R$;” MARTELO “comeu *; 
40 PRINT 5; MOSCAS" 


Experimente usar uma virgula 
em lugar de um ponto-e-virgula. 


Quando você coloca palavras e haver um ponto-e-virgula entre as 


variáveis em uma instrição PRINT, as palavras e a variável. Você também 
palavras devem estar entre aspas e deve deve deixar um espaço depois de 
Teste com PRINT abrir ou antes de fechar as aspas. 


Escreva um programa usando as a tela do seu computador fique igual à 
variáveis da tela da esquerda para que tela da direita. 


*Se o seu micro é um TK-83, você terá que mudar os nomes das variáveis string de mais de 
uma letra que aparecem neste livro. 


Analisando um programa 


O programa abaixo serve para converter temperaturas de graus Fahrenheit para 
Centigrados. Para entender melhor o que o programa faz, experimente acrescentar 
algumas instruções PRINT para fazer o computador mostrar os resultados 
intermediários. Assim fica mais fácil analisar qualquer programa. 


Acrescente instruções para 
À temperatura em imprimir os valores de Ce D. 
graus Fahrenheit 
que você escreve 


fica armazenada 
na variável À. 


Idéias para programas 


Abaixo você encontrará sugestões de alguns programas simples para escrever. 
Procure escolher nomes de variáveis que tenham alguma ligação com o que elas 
representam no programa. Escreva primeiro os programas no papel, depois 
introduza-os no micro e corrija Os erros, se necessário. 


1 Vamos falar pfiano? 


Você foi encarregado de negociar com 
os pfianos, que falam português, mas | 
colocam as letras PF na frente de todas. 
as palavras. Escreva um programa paras 
traduzir palavras de português para | 
pfiano. 


guardar as letras PF e INPUT para pedir a palavra em 
português. Imprima as duas variáveis na mesma linha,. 
Eapaio de escrever uma mensagem apropriada. 


2 Calculador de velocidades 


Vamos fazer um programa para calcular velocidades? Você 
vai precisar de instruções INPUT para o tempo e a 
distância, de uma conta para calcular a velocidade e de 
instruções PRINT para imprimir uma mensagem apropriada 
-e mostrar o resultado. 


Programa das salsichas O robô 1 come 30 salsichas por hora, mas o 
robô 2 só come 20 no mesmo tempo. Se o 
robô 2 quer comer no mínimo 35 salsichas.e o 
robô 1 se recusa a comer mais devagar, 
quantas salsichas eles devem comprar e 
quanto tempo vão levar para comer todas? 


sOmece com três variáveis, duas para guardar os números 
nas que os robôs podem comer por hora e uma para guardar o| 
| que o robô 2 quer comer. Use novas variáveis para guardar o 
1po que o robô 2 leva para comer 35 salsichas e o número de 
Is “has que o robô 1 come no mesmo tempo. 


Repetições 


E muito útil poder fazer o 
computador repetir 
alguma coisa várias 
vezes. Uma forma de 
conseguir isso é usando 
as instruções FOR...TO e 
NEXT. Experimente rodar 
o programa à direita para 
ver como funciona. 


é uma variável que funciona 
nmo um contador. Diz ao 
micro quantas vezes deve 
repetir a linha 20. 


Esta linha diz ao 
computador para 
voltar ao começo 


10 FOR J=1 TO 10 
à 20 PRINT "BOM DIA” 
350 NEXT J 


10 FOR I=i TO 1 
20 PRINT TAB(L) 


10 FOR I=1 TO 10 
20 PRINT I;" X 8"; 7 

"BOM DIA" 
30 NEXT da 


30 PRINT "= "; 1x8 
40 NEXT 1 


As letras |,J,K e 
L são muito 
usadas como 
nomes de Você pode ver como a variável de um loop varia 
variáveis em l00PS.) ,sando a instrução PRINT para 'observar os valores 
sucessivos da variável. 


testes com loops 


2 BOM DIA 
BOM DIA 
BOM DIA 
BOM DIA 
BOM DIA 


Você sabe programar um ps para encher a tela de 
BOM DIA, e outro para escrever uma coluna de BOM 
DIA no centro da tela? 


Uso de STEP 


10 FOR I=1 TO 25 STEP 5 
“BO PRINTIO 
30 NEXT] 


BOM DIA BOM DIA B 
OM DIA BOM DIA BO 
M DIA BOM DIA BOM. 


Que está errado 
no programa 

acima? | 
Experimente 


10 FOR J=20 TO 1 STEP- 1 
“20 PRINT TER 
30 NEXT 


Você pode mudar a contagem de um loop usando a palavra STEP e um número 
que diz ao computador como a variável de contagem deve ser incrementada. Se 
você usar um número negativo, o computador contará para trás. Rode os 
programas acima e depois experimente mudar o número depois de STEP. 


BOM DIA 
BOM DIA 


BOM DIA 


Escreva programas que façam a tela ficar como nas figuras acima. 


Os micros funcionam com 
diferentes velocidades; talvez 
você precise mudar o número 
1000 na linha 40. 


Loops de espera 


ENSAGEM SECRETA 
EMDRIZE EM 5 SEGUNDOS 
NTES QUE DESAFARECA 


NCONTRE AGENTE X MO AEROPORTO 


Escreva um programa para fazer o seu 
micro escrever a mensagem acima e 


Um loop de espera é um loop sem fazê-la desaparecer depois de 5 
instruções internas. No programa segundos. Você vai precisar de um loop 
acima, as linhas 40 e 50 fazem o de espera, seguido por uma instrução 


computador contar de 1 a 1000 antes de para o computador apagar a tela. 
escrever a mensagem. 


Desenhando na tela 


Dependendo do seu micro, 
você pode usar caracteres 
gráficos em lugar de estrelas. 


LO LET Af="+8*" 

20 FOR J=i TO 7 

50 FRINT TAR(U);AS 

40 NEXT J 

O FOR k=1 TO 3 

60 PRINT TAB(J+1):A$ 
TO NEXT E 

BU. FOR L=7 TO à STEP-l 
70 PRINT TAB(L);AS 
NEXT L 


90 FOR L=8 TO 18 


90 PRINT TABCL)sAS;"a*” 
100 NEXT £ 


O programa à esquerda faz um desenho 
com estrelas. Você pode mudar o 
desenho à vontade. À listagem acima é 
apenas uma sugestão. | 


Agora mude o programa 
para mostrar a mesma 
forma de cabeça para 


Você é capaz de completar as linhas 50 a 70 deste 
programa para que a tela fique como na figura 
acima? 


Faça as figuras 
com estrelas 
coloridas. * 


Você pode juntar os Veja se consegue modificar os programas 2 e 3 para 
programas 2 e 3 para fazer figuras como estas. 
desenhar um losango. 


*Consulte o manual do seu micro para saber como usar as instruções de cores. 
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Loops e mais loops 


Você pode usar loops dentro de outros loops. Eles são chamados de loops 
internos. Cada vez que o loop de fora é repetido, o loop interno é 
executado um certo número de vezes. 


FOR St TOS 

20 FOR L=i TOS 

30 PRINT K,l Loop interno 

40 NEXT L 

50 NEXT É 
Este programa mostra os valores das Rode este programa e depois 
variáveis dos loops, para que você veja experimente mudar o tamanho dos 


como funciona o loop interno. loops. Você é capaz de acrescentar 
outro loop interno para fazer o 
programa ficar mais lento? 


Erros em loops 


FOR 1=9 TO O STEP-1 
20 FOR J=9 TO O STEP-1 
30 FOR K=9 TO O STEP-1 
40 PRINT Is J3k 
50 NEXT I 

50 NEXT J 

NEXT E 


Você deve ter cuidado para colocar todas as instruções do loop interno dentro do 
outro loop. O programa da esquerda está certo. Você sabe o que está errado no 
programa da direita? Como corrigi-lo?, 


EO Mensagem que pisca 
Contador binário 


FOR A=0 TO 1 linka 50 


FOR B=0 TO 1 calcula o valor 
FOR C=0 TO 1 decimal de cada 
FOR D=0 TO 1 número binário. 


PERIGO 


ATAQUE ESFACIAL 


Você é capaz de escrever um programa 


PRINT D+LAZ+BX4+AXB; O = *; para fazer piscar a mensagem acima? 
PRINT A;B;C;D Vai precisar de um loop para apagar a 
NEXT D tela e mostrar a mensagem e de dois 
e a : O computador loops de espera para a mensagem não 
NEXT A repete piscar depressa demais. 

primeiro o 

loop mais Relógio digital 


interno. 


Este programa usa quatro loops para 

contar em binário até 1111. Você é 

capaz de acrescentar mais loops e 

mudar as instruções PRINT para que ele 

possa contar até 11111111? Faça um programa para que o micro 
funcione como um relógio. Você vai 
precisar de um loop para os segundos, 
um para os minutos e um loop de | 
espera. 


Você é capaz de escrever um programas 
Com vários loops para fazer “decolar” 
um foguete feito de estrelas? 


Dependendo do 
micro, você pode 
usar caracteres 
gráficos. 


Ginástica 
Você é capaz de escrever um programa 
para fazer uma figura como esta fazer 


ginástica, saltando na tela e movendo-se 
da esquerda para a direita? 


Desenhe as-figuras ER fazer 
PRINTF SOR 


Você pode desenhar o boneco pular. 


uma figura simples em RA o SD 
duas posições diferentes PRINT!” PRINT 
usando a instrução PRINT 


Coloque E 
PRINT com letras e os aaa PRINT 


símbolos. das linhas. PRINT 
Escreva o programa 


l. Você vai precisar de um loop do tamanho da largura da sua tela, que conte 
de 2 em 2. Você vai saber a razão quando tiver que escrever as instruções com 


PRINT e TAB. 


2. Dentro do loop, você terá que apagar a tela antes de mostrar o primeiro 


boneco. Use TAB de tal forma que a posição da figura mude cada vez que for 
mostrada. 


3. Use um loop de espera para a figura ficar algum tempo na tela. 


4. Repita os passos acima com um TAB diferente para mostrar o segundo 
boneco. 


o <02. O 
O «0 
E N ha / 
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Exercícios com IF...THEN 


À instrução IF...THEN é usada para comparar 
informações e dizer ao computador para fazer 
coisas diferentes de acordo com o resultado. 


> = quer dizer 
maior que ou igual a. 
< = quer dizer 

menor que ou igual a. 


10 PRINT "QUANTAS BATATAS FRITAS VOCE QUER 
20 INPUT C 
30 IF C>=0 AND Có=10 THEN 

PRINT "VAI MORRER DE FOME" 
40 IF C>tO AND C<=25 THEN PRINT "OK* 
50 IF C>25 AND C<=1000 THEN PRINT "ESGANADO 
60 IF CCO OR C>1000 THEN PRINT "t!1º 


Rode o programa acima para Na maioria dos micros, você pode fazer 

familiarizar-se com os simbolos que o várias comparações ao mesmo tempo, 

computador usa para comparar usando as palavras AND e OR. Rode o 

informações. programa acima para ver o que 
acontece. 

Tabuada do 13 Senha 


10 LET S$="SALSICHAS” 
20 PRINT "SENHA,POR FAVOR "; 


30 INPUT P$ 
40 IF P$=S$ THEN PRINT "OK. PODE ENTRAR" 


Este é um programa para ver se você Você é capaz de completar este 

sabe a tabuada do 13. Você é capaz de programa para que o computador 

acrescentar outras instruções IF...THEN imprima uma mensagem se você der a 

para dizer que a resposta está errada e senha errada? Aumente o programa 

qual é a resposta certa”: para o computador pedir também um 
: numero secreto. 

Desvios 


Você pode dar ao computador muitas instruções Calculadora 
diferentes depois da palavra THEN. Assim, por 

exemplo, você pode dizer ao computador para parar 
ou pular para outra linha, usando a instrução GOTO. 


10 LET C=0 


Que acontece 


20 PRINT “ESTA CANSADO?" se você 
30 INPUT B$ escrever 
40 LET C=C+1 “Bilubilu"”? 


d0 IF B$="SIM" THEN STOP 

60 IF C>O THEN PRINT "DEVE ESTAR" 
70 IF B$="NAQ" THEN GOTO 20 

80 PRINT "NAD DIGA BOBAGENS" 

9%) GOTO 20 


À tela acima mostra a 
saída de um programa 
que pode somar, 
subtrair, multiplicar ou 
dividir dois números 
escolhidos. Você é 
capaz de escrever O 
programa? 


Neste programa, o computador faz 
coisas diferentes, dependendo de sua 
resposta na linha 30. Rode o programa 
várias vezes, usando respostas 
diferentes. 


Jogos de adivinhação 


Acrescente 
algumas linhas 
para o micro 

dar uma pista 
da palavra. 


2. Acrescente uma 


variável para contar 
quantos palpites você já 
deu. Estabeleça um limite 
para o número de palpites 
permitidos usando a 
instrução JF... THEN. 


À tela acima mostra um 


Este é um programa simples de adivinhação. Uma jogo de adivinhação de 
pessoa escolhe um número e outra tenta adivinhar palavras. Você é capaz 
qual é. Você é capaz de melhorar o programa, de escrever o programa? 


E parecido com o de 
números, só que usa 
strings. 


seguindo as sugestões acima? 


Corrida de cavalos 


Aqui está a listagem de um jogo de corrida de cavalos... mas está incompleta. 
Veja se consegue colocar os números certos depois da instrução GOTO, nas linhas 


marcadas com um asterisco. 


como nas linhas 20 e 30. 


30 INPUT "SEGUNDO: ":;H2 O primeiro jogador escolhe os cavalos 
40 CLS que chegaram em primeiro e segundo. 


90 LET N=N+i É e AE PA ARTE A N é RIAA para contar o número de 


60 INPUT "DIGA O PRIMEIRO: ":Gi tentativas do segundo jogador. 

70 INPUT “DIGA O SEGUNDO: ";6G2 

* BO IF G1l=Hi AND 6G72=HZ THEN BOTO? 

+ 90 IF Gil=HZ OR 62=Hi THEN GOTO? 

*100 IF (Gl=Hi AND 62<>2H2) OR 
(G2=H2 AND Gl<>H1i) THEN GOTO? 


10 LET N=0 
20 INPUT fr do 


Não se esqueca 
de colocar os 
números que 


faltam. 


Ss Gelado ip 
*120 IF N=4 THEN GOTO? coloque a segunda instrução em 


130 PRINT "TENTE DE NOVD":GOTO 54 | outra linha e elimine os dois 
140 PRINT "UM PALPITE CERTO":GOTO 129 pontos. 

150 PRINT "CAVALO CERTO, LUGAR ERRADO":GOTO 120 

OO PRINT CERTOS 

PRINT CPRRIMELRO:*sHis"- SEGUNDO" HZ 


Como se joga Idéias para melhorar o jogo 
Existem seis cavalos 
numerados de 1a 6.0 
primeiro jogador escolhe 


2. Deixe os 
jogadores 
resolverem se 
querem jogar 


os cavalos que chegaram 
em primeiro e segundo 
lugares. O segundo 
jogador tem quatro 
tentativas para adivinhar 
quais são. 


. Invente um sistema de novo. 
de contagem de 

pontos e incorpore-o 

ao programa. 


Em muitos micros você pode 
imprimir palavras com INPUT, 


RR a A 
Números aleatórios 


À instrução RND serve para gerar números aleatórios, mas a forma como é 
usada varia de micro para micro. Verifique no manual do seu micro ou na 
tabela de conversão do final do livro qual é a forma que deve utilizar. 
Depois, tente resolver os exercícios que aparecem nestas duas páginas. 


Verifique se o seu (cá 
micro usa (1) ou (0) «xe ” 
depois de RND. E de 


ANDIASAT9+L) 


A 


PRINT RND(99) À 
INDIO) 499+1) 
INT(RND*99+1) 


Em alguns micros, Em muitos micros, para gerar um número inteiro você 


PRINT GRND(iO) 


usa-se RND com um precisa usar a palavra INT com RND seguido de (1) 
número entre ou (0), se necessário. Você deve multiplicar RND pelo 
parênteses para número de números que deseja gerar e somar o 

gerar um número menor número da série. Assim, por exemplo, todas as 
inteiro entre leo instruções acima são para o computador escolher um 
número entre número ao acaso entre 1 e 99. 


parênteses. 


As instruções acima são para gerar um Você é capaz de fazer o seu micro 
número ao acaso entre 5 e 10. Uma gerar números aleatórios entre 10 e 20? 
delas deve servir para o seu micro. 


este livro as 
instruções RND 
são escritas 
assim. Não se 
esqueça de 
modificá-las, caso 
seja necessário. 


Quebra-cabeças 


Examine o jogo de adivinhação de 
números da página 13 e veja se é 
capaz de modificá-lo para que o 
computador escolha um número entre 
1 e 20 para você adivinhar. 


Sequência dê números 


Você vai ter que colocar os números corretos nas 


Veja se é capaz de linhas 10 e 20 e acrescentar algumas instruções PRINT 
escrever o programa para e IF...THEN. Na listagem da direita aparecem 

o jogo acima. Parte do algumas idéias para mudar a linha 40 e produzir 
programa aparece na outras sequências de números. Você sabe como 
listagem do meio. mudar o programa para que o computador escolha 


uma seqiiência ao acaso cada vez que você rodar o 
programa? 


Fuga do planeta Zorgo 


Veja se é capaz de escrever um 
programa para este jogo. Você está no 
planeta Zorgo e precisa de 50 créditos 
para comprar combustivel suficiente 
para voltar à Terra. Você já tem 10 
créditos, mas a única maneira de 
conseguir os outros 40 é jogar um jogo 
com um computador alienígena. As 
telas abaixo mostram como é o jogo. 


à Ta —— - E 
A Pro 


SUA APOSTA 


DOBRADINHA: DOBRA 
10 OU 11: TRIPLICA 
6 OU 7: FICA IGUAL 


OUTROS: PERDE 


cm emma mom 


antia, de acordo co 


o ou pé ero de uma certa qu 


Jogo do Papel, Pedra e Tesoura: Descubra os erros 


Este é um programa para você jogar o jogo do Papel, Pedra e Tesoura com o 
computador, mas está cheio de erros. Com o auxílio dos comentários à direita da 
listagem, veja se consegue localizar os erros e corrigi-los. 


C é para a contagem do 


tro [14 

Ne LET computador. 

30 LET A=o Á é para a contagem do jogador. 

40 LET E=ô F diz ao computador quem ganhou 
50 LET R=INTIAND(L) 4441) agia qdo 6 Er 

A fi ese ' ' 

E E dei snes su Agi Ad A escolha do computador, que 

Bo TE peê CE="TESDOURA! o depende do valor de R, é guardada 
90 PRINT “ESTOU PRONTO! Rn 

LYO FRINT "VOCE QUER PAPEL, PEDRA CU TESDURA" 

lilo INPUT Ag | 

iz) PRINT 

150 IF C&="PaPEL" AND AS="TESOURA” THEN LET F=i 

140 LF C$&="PELRA” AND AS="FAPEL" THEN LET F=i 

150 IF A$="TESOURA" AND As="FEDRA"” THEN LET E=i 

150 IF C$=At THEN LET E=2 

170 PRINT “VOCE ESCOLHEU "As O computador verifica quem | 
180 FRINT “EU ESCOLHI ":C$ ganhou. Se foi o jogador, faz F igualf 
190 PRINT ! PORTANTO a 1. Se foi empate, faz F iguala 2. 1 
200 IF F=0 THEN PRINT “Ei GANHEI" Se foi o computador, deixa F com o 
210 IF F=F THEN PRINT “VOCE GANHOU" | valor 0. 

z:b IF F=2 THEN PRINT “EMPATOL" 

230 IF F=0 THEN LET A=â+1 O computador diz quem ganhou e 
240 IF F=1 THEN LET C=0+1 atualiza a contagem com base no 
250 PRINT “CONTAGEM :" valor de F. 

280: PRENERSEU CEE 

24 OUPRINTVOCERA "A 

264 IF C>i0 AND A>iO THEN GOTO 41 
90 FRINT "ACABOU" 
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Mexendo com caracteres 


O computador pode fazer muitas coisas com caracteres guardados em 
strings. Os programas desta página mostram algumas das instruções de 
BASIC para manipular strings. Se o seu micro é da família Sinclair, essas 
instruções são um pouco diferentes. 


LET K$="CANGURU” | 
PRINT "ONDE FICA A" 
PRINT. PRIMEIRA LETRA”: 
INPUTOS 


LET R$="COMPUTADOR" 
PRINT LEFTS(R$,3) 
PRINT RIGHTS (R$,3) 


LET C&="SAPO-MARTELO" 
PRINT LEFT$(C3,4) 
PRINT RIGHT$(CE,7) 


LEFT$ e RIGHT$ dizem ao computador para  MID$ diz ao computador para separar letras 


PRINT "QUANTAS LETRAS": 
INPUT N 
PRINT MIDECKS, SN) 


separar um certo número de caracteres da do meio de uma string. O primeiro número 
string, começando pela esquerda ou pela: dentro dos parênteses diz onde fica a 
direita, respectivamente. O número indica primeira letra a ser tomada e o segundo o 
quantos caracteres devem ser tomados. número de letras a tomar. 


O computador conta os 
espaços como se fossem 
letras ou símbolos. 


Micros da família Sinclair 


10 PRINT "DIGA UMA PALAVRA Se 


LET A$="ABCDECGHIJKELMNOF" 
PRINT A$(4 TO bj 


EM"; DEF 
O PRINT "EXISTEM ": 
M PRINT L;" LETRAS"; PRINT AS(14 TO 16) 
BO PRINT * NA PALAVRA "iW3 


À instrução LEN é usada para contar o 
número de caracteres de uma string. 
Experimente rodar o programa acima. 


Os computadores da família Sinclair 
não usam as instruções LEFTS$, 
RIGHT$ e MID$. A maneira de 
manipular strings nesses micros está 
ilustrada acima. 


| 
| NOP 
| 
| 
| 


Testes com strings 


) 19 INPUT "PALAVRA" ;N$ 
20 LET I=LEN(N$) 


30 FOR K=1 TO 
+40 PRINT TABIKO:. 
MID$(2,7,7) 
50 NEXT K 
Você é capaz de substituir os pontos de interrogação Faça o computador 
da linha 40 para que sua tela fique assim? Pista: você escrever uma palavra ao 
pode usar MID$ para separar um caractere de uma contrário usando MID$ e 


string de cada vez. um loop com incremento 


Re ep | Se, Usando LEFTS e 
CABANAS a Lo. | RIGHT$, veja se 
LET L=LENtSS | “RA À você consegue 
PRINT S$ | ME escrever a linha 50 


FOR Ji TO L = do programa para 


? 
NEXT J 


que a tela fique 


A maior palavra 
Na linha 50, você 
tem que dizer ao 
computador para 
guardar a maior 
palavra até O 
momento na 
variável AS. 
Experimente usar 
IF... THEN e LEN. 


Este programa descobre qual é a maior palavra em uma lista de cinco. Complete a 
linha que falta. 


Você pode colocar 
qualquer coisa na variável 


LET AS="XIK! UI RUAROS 
ES VASEDD 0 00 CO PLACA 


Editor de texto 


À listagem abaixo mostra um programa que 
lhe permite escrever uma frase e depois 
mudar as palavras do texto. Antes de rodar o 
programa, você precisa completar as linhas 
assinaladas com um asterisco. Às observações 


. | 
à direita do programa servirão para ajudá-lo. HI 


O 
AR - Ny 


10 CLS 
20 PRINT "DIGA À FRASES Para ver como o programa funciona, 
30 INPUT 5$ escreva uma frase em uma folha de 
40 LET S$=7 papel e aplique as instruções do 


50 PRINT "PALAVRA FARA MUDAR"; programa a essa frase. 


INPUT W$ Faz o computador acrescentar um 


LET N$=7 |—————— espaço no início e no final de S$ e W$ 


PRINT "PALAVRA NOVE: Você sabe para quê? 
INEUT N$ 


OB LET [0=9 Faz LS igual ao comprimento da frase 
Edge ney | q ra (S$) e LW igual ao comprimento da 
LET LW=: palavra (W$). 
O LET A$="" 


LET K=l Complete esta linha para fazer o 


nd E ni computador procurar na frase (S$) a 
LF MID$(S$,2,72)=W$ THEN | palavra (W$) a ser substituída. Pista: 


LET A$=S$ use K para contar os caracteres. 


LF A$=58 THEN LET S$=LEFTS E Esta linha faz o computador tomar os 
(2,2) +2+RIGHT$ (AS ,LO-(K+LW-2))] caracteres que estão à esquerda da 


LET LS=LEN(5S$) palavra a ser substituída, acrescentar 
LET K=kK+l a nova palavra e completar com o 


A resto da frase. Você é capaz de 
IF Kc=LS-LW+i THEN GOTO ? colocar as variáveis que estão 


PRINT 5$ faltando? 
GOTO 50 
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Outras instruções 


Dentro do computador, os caracteres são representados por números de código. 
Você também pode usar esses números. À instrução CHR$ transforma um número 
em um caractere. À instrução ASC (ou CODE, nos micros da família Sinclair) faz 
o oposto, transformando um caractere no seu número de código. Todos os micros, 
com exceção do TK-83, usam um código-padrão, chamado ASCII*. 


Uso de CHR$ 


Se o seu micro 
é um TK-83, 


use estes 
números. 


Experimente algumas instruções CHR$ usando esses e outros números. À tabela 
completa dos números de código está no manual de seu micro. 


Testes com letras 


Coloque os números que Escreva um programa Escreva um programa 
faltam na linha 10 para o para imprimir o alfabeto para mostrar na tela 
programa imprimir o em letras minúsculas. letras escolhidas ao 
alfabeto. acaso. 


dim Que acontece se 
“3 você coloca mais & 
de um caractere | 
entre aspas 
? depois de ASC 


Experimente algumas instruções ASC (ou CODE) usando esses e outros caracteres 
para ver quais são os números de código. 


Como comparar letras 


10 PRINT "ESCREVA SUA MENSAGEM" 
20 INPUT M$ 

0 FOR J=i TO LEN(M$) 

40 LET X$=MID$CM$,U 


1) | 
+50 IF X$>="a" AND X$<="2" THEN 
PRINT CHR$(ASC(X$)-7); 


*60 IF X$>="A" AND X$<="7" THEN 
mer eee e PRINT CHR$CASC(X$)+7); 
Usando os sinais > e < 70 IF X$<"A” OR K$2"Z" THEN PRINT X$; 
tente escrever um dQ NEXT Ú 


programa para comparar 
duas letras e colocá-las 
em ordem alfabética. 


Complete os números que estão faltando nas linhas 50 
e 60 para fazer o computador transformar letras 
maiúsculas em minúsculas e vice-versa. Você não 
conseguirá rodar este programa se o seu micro tiver 
apenas letras maiúsculas. 


*ASCII é a abreviação de American Standard Code for Information Interchange (Código 
Americano Padrão para Intercâmbio de Informações). 


Códigos secretos 


Aqui estão as idéias 
para alguns programas 
para gerar mensagens 
em código. À figura à 
direita mostra como o 
primeiro programa 
funciona. Você só tem 
que completá-lo. 


Programa do código alfabético 


* 40 LET X=? 


Código alfabético 


O programa toma 
alternadamente a letra 
anterior e a letra seguinte dos 


Você sabe 
completar a 


O loop é repetido tantas 


caractere de cada vez e 


10 PRINT “DIGA SUA MENSAGEM" vezes quantos são os 
20 INPUT M$ caracteres em M$. 
* 30 FOR J=í TO? Faz o computador tomar um 


* 50 IF XX? OR X>? THEN LET N=X 


GUTO 100 


* 0 LP N£T CHEN Let Nentoo 
- N57 THEN LET N=h-26 


*100 PRINT-7 |— Imprime a nova 
110 NEXT 3 


Neste código, o alfabeto é deslocado de 


um certo número (N) de letras. No 
exemplo acima, N=6. Você é capaz de 


Código variável 


loop, J, é somado ao código ASCII de 

cada letra. Escreva dois programas, um 
para codificar a mensagem, outro para 
decodificá-la. 


* 


o P 


letra usando CHR$. 


Neste código, o valor da variável do 


e O seu micro é TK.85 2 -98-nú 
sacos cms a 
A AE ASE 


guardar o seu número de 


código ASCII em X*.' 


| | Verifica se o caractere é 
uma letra. (Neste código, os 
i=401 numeros e espaços não são 
pe dO! alterados.) 
Soma la X se o contador 


do loop (]) é par e subtrai 1 
se é impar. | 
Se o novo número (N) está fora do 
alfabeto, resolve o problema 


escrever um programa que faça isso? 
Use o número-chave que quiser. 


Código de inversão 


Neste código, você divide a mensagem 
em pares de letras e troca as posições 

das letras do par, incluindo os espaços. 
Para escrever o programa, use um loop 
com incremento EA 


dá 


20 


q 


£| mentalmente e apertar qualquer tecla assim que a resposta correta aparecer na tela. 


Exercícios com 
IN KEYS Você não precisa 


apertar RETURN 


A instrução INKEY$ faz o com estes 
computador consultar o teclado para comandos. 
ver se alguma tecla está sendo 
apertada. Ão contrário do que 
acontece com INPUT, o computador 
não espera por você, mas continua Estas são algumas das instruções usadas 
a executar o programa. para consultar o teclado em diferentes 
computadores. Consulte o manual do 
seu micro ou a tabela da página 47. 


BOM DIA BOM DIA BOM D 
IA BOM DIA BOM 


DIA BOM DIA ROM DIA B 
OM DIA BOM DIA BOM DIA 


xperimente rodar este programa Escreva um programa que faça fo) 


usando a instrução correta para o seu computador imprimir BOM DIA quando 
micro. Quando você aperta uma tecla, você apertar uma tecla e um espaço 
o computador imprime o caractere quando não apertar, como na tela 


correspondente, caso contrário imprime acima. 
um ponto de exclamação. 


Fazendo o computador esperar 


Você sabe como 
fazer o computador 
esperar 
indefinidamente até 
que uma tecla seja 
apertada? 


As vezes é útil fazer o computador esperar um pouco antes de continuar o programa. Em 
algumas versões de BASIC, você tem que colocar um número entre parênteses depois de 
INKEY$, como na listagem da esquerda. Isto diz ao micro quanto tempo deve esperar (em 
frações de segundo) antes de continuar. Se o seu micro não permite isso, coloque o INKEY$ 
no interior de um loop, como na listagem da direita. 


Descubra os erros 


Será que você é capaz de descobrir os erros do programa abaixo e corrigi-los? O 
computador deve escolher dois números ao acaso entre 1 e 25. Você tem que somá-los 


10 CLS | 120 TF A$<>"" THEN GOTO 180 

20 PRINT “APERTE QUALQUER TECLA 130--0R k=1 TO 100:NEXT É 

30 PRINT “QUANDO A RESPOSTA CERTA 140 IF N<30 THEN GOTO 90 

APARECER” 130 PRINT "ERROU. À RESPOSTA E "sX+y 
40 LET N=ô 160 FOR k=1 TO 10060:NEXT T 

50 LET X=INTIRND(1)+25+1) 170 GOTO 30 

60 LET Y=INTÍRND(1)425+1) 180 IF N<>k+Y THEN GOTO 150 


70 PRINT 190 PRINT "ACERTOU. À RESPOSTA E X+y" 
BU PRINT DM +otaper é > | 

90 LET N=N+1 

100 PRINT N 

110 LET INKEY$=AS 


Este programa 
tem oito 
erros. 


Como programar um 
exame de motorista 


Seguindo os passos abaixo, veja se é capaz de 
programar este jogo. Para mostrar o carro e a 
estrada, use PRINT TAB com um * para o carro 
e ! para as margens da estrada. À estrada desce 
a tela em ziguezague enquanto você dirige o 
carro com duas teclas para mantê-lo na estrada. 


1. Definindo as variáveis 


Você precisa de quatro variáveis, C,)L,W e R, para posicionar o carro e as 
margens da estrada. Os valores iniciais vão depender do tamanho de tela do seu 
micro. 


2. Desenhando a estrada 


q Você deve usar a 
= 5: linha LET 
! R=L+W dentro 
do loop para fazer 
: 74 com que o valor 
q de R acompanhe 
É 4 o valor de L. 


Agora faça o computador Para fazer a estrada ziguezaguear, você tem que 


mostrar a estrada e o mudar o valor de L cada vez que a instrução PRINT 
carro, usando PRINT TAB TAB for executada. Para que a estrada não saia da 
com uma variável e um tela, defina uma nova variável, N. Faça N=1 se L=1 
símbolo. Use GOTO para eN=0se L= à largura da sua tela. Diga ao 

repetir as instruções e computador para somar ou subtrair 1 de L, 

desenhar uma estrada dependendo do valor de N. 

reta. 


3. Dirigindo o carro 


Você sabe 
programar um 
ziguezague 
aleatório? 


invente 
al | um sistema 
Para dirigir o carro, você Finalmente, verifique se o su a de contagem 
precisa de uma instrução carro bateu, comparando | » de pontos. 
INKEY$. Escolha duas C com Le R. Nesse caso, 
teclas (como < e >) avise ao motorista. 


para somar ou subtrair 1 
de €C quando forem 
apertadas. Se o programa 
estiver muito rápido, use 
um loop de espera. 


Ze 


Quebra-cabeças com DATA 


Uma das maneiras mais simples de fornecer ao computador grandes 
quantidades de informações é usando as instruções READ e DATA. Uma 
linha de DATA contém uma lista de palavras ou números e READ diz ao 
computador para guardar os dados em uma ou mais variáveis. O micro 
TK-83 não reconhece essas instruções. 


Coloque o 
último nome 
da sua lista na 
linha 50. 


Use vírgulas 
para separar 
os dados. 


- Em alguns micros, O | 
2” dados devem ficar entre aspas. 4 
ED de VE a e RS a, EAST porno cn 
Ea 


Neste programa, o computador 


Rode o programa para ver como pergunta o seu nome e o compara com 
funcionam as instruções READ e DATA. uma lista de nomes. Coloque quantos 
Os dados são guardados nas variáveis X nomes quiser na linha 80, mas não se 
e X$. esqueça de colocar o último na linha 

S0, para que o computador saiba que 
Uso de RESTORE chegou ao final da lisia. 


HO FOR [= 2 70? 


ser os números de código 


50 REND N$ cg | das letras do alfabeto. 
+40 1F LEFTSINS,LI=CHR$( 2 ) THEN PRINT N$ 

50 NEXT | | y 

sO RESTDRE A variável I é usada para 


contar o número de 
nomes já lidos. 


TG NEXT d 
DO DATA VERA, ÁRVIER, ZACARIAS, HORÁCIO, GUILHERME ALFREDO 
90 DATA TANIA, CAROLINA,LEANDRO, VANIA, ANDRE, DALILA 

196 DATA RONALDO MARILIA, SERGIO, CLAUDIO, SONIA 


vO DrOgrtafiia a la, que pTVe Dara DiOCar um elie qe nome pm Order 
alfabética, os nomes estão em instruções DATA e a instrução RESTORE diz ao 
computador para voltar ao primeiro nome da lista cada vez que o loop de J é 


repetido. Complete o que está faltando para que o programa funcione. 
Descubra os erros 


este programa, vários numeros e não encontrar o erro deste 


telefone aparecem como dados. Você é programa, experimente rodá-lo no seu 
capaz de descobrir o que está errado e micro. O computador vai imprimir uma 
corrigir o erro? mensagem de erro. Qual a maneira 


mais simples de resolver o problema? 


Bar Bado 


BAR BADO 
ENSOPADO DE BODE 1990. 
SOPA DE ANDORINHA 2500. 
TORTA DE CEBOLA 1.100 


ALMÔNDEGAS 930. 
FOLHA DE ALFACE 50 


SORVETE DE CREME 600. 
PIZZA DE ESPINAFRE 870. 
GALETO 

VITAMINA 

CAFEZINHO 


A figura acima mostra o cardápio do Bar Bado. Usando os nomes e os preços dos 
pratos como dados, escreva um programa que lhe diga o que pode pedir se 
dispuser de uma certa quantia em dinheiro, como está indicado na tela do lado 


direito. 


Catálogo telefônico 


Abaixo estão as 
instruções para 
programar um catálogo 
telefônico. As telas à 
direita mostram dois 

exemplos. Você sabe 
escrever o programa? 


pSuarde os 


números em 


-—“Cotóque os nomes e os 
números de telefone de 
seus amigos em uma 


instrução DATA. 


4. Imprima o nome e o 
número (que deve estar 
logo depois) ou diga que 
o nome não consta da 
lista. 


QUAL O NOME DA PESSOA? 
ZERREDOIS DEDOIS 
TELEFONE: 2222-3495 

QUER CONTINUAR? SIM 


Onum 

de Erredois 
Dedos, 
por favor. 


2. Use PRINT para o 
computador perguntar o 
nome da pessoa e INPUT 
para você responder. 


Quer 
continuar? 


5. Faça o computador 


perguntar se você quer 
continuar. Use INPUT 


para responder. 


QUAL O NOME DA PESSOA? 
?DARTH VADER 

NAO ESTA NA LISTA 

QUER CONTINUAR? NAO 


3. Use READ para 
procurar o nome na lista. 
Use uma variável para os 
nomes e outra para Os 
numeros. 


6. Dependendo da 
resposta, use RESTORE 
para voltar ao ponto de 
partida ou STOP para 
encerrar o programa. 
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Uso de matrizes 


Os dados também podem ser guardados em matrizes. Você pode pensar 
em uma matriz como uma variável com vários compartimentos numerados, 
cada um dos quais pode conter um dado. Para se referir a um elemento em 
particular, você deve especificar o nome da matriz e o número do 
compartimento, que é chamado de índice. 


Matrizes numéricas 


Estes números 
são Os índices. 


Aqui está uma matriz numérica chamada N. Ela contém seis elementos. Você 
precisa dizer ao computador qual é o tamanho da matriz, para que ele possa 
reservar um espaço suficiente na memória. Para isso, utiliza-se a instrução DIM, 
seguida do nome da matriz e do número de elementos que contém. Isto é chamado 


de dimensionar uma matriz. 
o Sed E e 


Para guardar os dados em uma matriz, 
pode-se usar um loop com READ e 
DATA. Complete o programa da 
esquerda para guardar todos os dados 
da figura acima em uma matriz. Se o 
seu micro é um TK-83, use o programa 
da direita. 


Matrizes string 


Esta é uma matriz string (N$). Ela 
contém cinco elementos, cada um com 
um nome armazenado. Escreva um 
programa para guardar dados nesta 
matriz e depois mostrar os dados na 
tela. 


Agora faça um programa para imprimir 
os dados guardados na matriz. Use 
PRINT e uma variável como indice da 
matriz. Na tela da direita, o computador 
imprime elementos da matriz ao acaso, 
usando um número aleatório como 
indice da matriz. 


Micros da família Sinclair 


MATRIZ AS 


1 GATO 

2 PEIXE 

3 ELEFANTE DIM A$(5,8) 
4 RATO 


5 BURRO 


Nos micros da familia 
Sinclair, cada string é 
guardada em uma linha 
diferente da matriz e cada caractere de 
uma string é guardado em um elemento da 
matriz. Para dimensionar uma matriz, você 
tem que dizer ao computador quantas 
strings (linhas) existem e qual o número de 
caracteres (elementos) da maior string. 
Coloque os dois números entre parênteses, 
como no exemplo acima. O computador 
iguala os comprimentos de todas as 
strings, acrescentando espaços às outras 
strings. 


Calendário 


+ 10 À Dimensione as matrizes. 


20 FOR K=1 TO 12 
E 30 Dn Leia os dados e guarde 


40 NEXT E em duas variáveis, M$ e 
D. 
50 PRINT "O MES NUMERO *; 
h0 INPUT N Coloque os indices 
É 70 PRINT M$(2);" TEM"; apropriados para 
+ 80 PRINT D(?):" DIAS" Imprimir OS dados 
| corretos. Agora mude o programa 
, Coloque nessas linhas o para o computador 
+ 90 DATA i Rima cá da pada mês perguntar o nome do 
+100 DATA & seguido pelo número de mês. Use um loop e 
+110 DATA ? dias correspondente. Ra para procurar 
o nome do mês na matriz 
Complete o programa acima para que, quando você M$. 


fornecer o número do mês, o programa escreva o 
nome do mês e o número de dias que ele tem. 


Programa de sugestões 


Aqui está um programa que pode ser Para escrever o programa, você precisa 
util para quando você não tem o que de uma matriz string (1$) com dez 
fazer. Você escolhe um numero e o sugestões diferentes. Coloque um 
computador mostra uma sugestão na numero em uma variável (N) usando 
tela. INPUT e use N como indice de I$. 


Vinte perguntas Gráfico de números aleatórios 


A tela acima mostra um 90 LET RENA ; 
jogo de perguntas e 90 IF N<100 THEN GOTO 40 


respostas. Para escrever o Este programa usa uma matriz para guardar os dados 


O computador 
dá a cada 
elemento da 
matriz À um 
valoresaisial de O 


10 LET N=0 

20 DIM Atid) 

30 FOR K=1 TO 10 
40 LET ÁIK:=0 

90 NEXT É 

b0 LET R=INTIRND(1)*410+1) 
70 LET ACR)=ALRI+ 


programa, faça 20 de uma tabela. O computador escolhe ao acaso 100 
perguntas. Coloque as numeros entre 1 e 10. Cada elemento da matriz (À) 
perguntas em uma matriz contém o número de vezes que cada número foi 

e as respostas em outra, escolhido. Veja se você consegue escrever um 

na mesma ordem. programa para fazer um gráfico como o da tela 


acima, que mostra uma estrela para cada vez que o 
número foi escolhido. 
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: r ram IX 
Uso de sub-rotinas (Rode 6 programa abaão 7) 


; para ver como funcionam as / 
Sub-rotina é uma parte de um instruções GOSUB (7 RETURN. ) 
programa que é usada várias vezes E a A) 


durante a execução do programa. À 
instrução GOSUB, seguida pelo 
número da primeira linha da sub- 
rotina, diz ao computador para 
saltar para a sub-rotina. O 
computador executa a sub-rotina até 
chegar à instrução RETURN. Em 
seguida, volta para o programa 
principal, começando pela instrução 


seguinte a GOSUB. 


h % a TITE QE IFAY 


MANGA SETE IEEE IEEE 
BEACAXI FREE IE 
COCO SEE 


MORANGO * 
GRAVIOLA III E 


À tabela acima mostra o resultado de uma pesquisa de popularidad 
seis sabores de sorvete. Escreva um programa para mostrar os dados como na tela 
à direita. Use um loop para guardar os dados em duas matrizes e, dentro do loop, 
mande o computador a uma sub-rotina para imprimir uma linha de cada vez. 


Afunde o submarino 

O programa abaixo é para um jogo chamado “Afunde o Submarino”. Um 
submarino inimigo está escondido em algum lugar de uma rede 10 x 10. O 
computador determina sua posição escolhendo dois números aleatórios que 
funcionam como coordenadas. Você tem quatro chances de localizar o submarino 
adivinhando as coordenadas X (horizontal) e Y (vertical). Se errar, o computador 
vai para uma sub-rotina que lhe diz para onde deve ir na tentativa seguinte. Para 


poder rodar o programa, você precisa escrever a sub-rotina. 
VE SR RAR 


10 CLS Você pode OK SS 
20 LET n=0 desenhar So AO a O 
30 LET X=INTIRND(L)410+1) na Tede e 
50 LET N=N+Í re PS RE NE ci 
60 PRINT "PALPITE NO. SN! 1; [para ajudá-lo nEEs 
70 INPUT A,B No : oca HH 
80 IF A=X AND B=Y THEN GOTO 170 submarino. dE PPA RE o 
90 GOSUB 200 api Sa cam 
100 PRINT AB e SS 
110 1F Nt=4 THEN GOTO Só “rar RR ca ru 


120 PRINT “ACABARAM OS TIROS" 


130 PRINT "BUER JOSAR DE NOVO?" Roma ESBrOURI mata 


146 INPUT R$ EINE PD Você precisa de várias linhas de 

T+ Eae A 9º THEN BOIO 10 IF...THEN para comparar seu palpite 
175 PRINT "VOCE AFUNDOU O susmarINO! — — (A,B) com a posição do submarino 

180 PRINT "EM ";N;" TENTATIVAS! (X,Y) e imprimir uma mensagem na 

1790 G0T0 130 tela. Assim, por exemplo, se B é menor 


que Y, você deve escrever N (norte) etc. 
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Programe uma máquina caça-níqueis 


Você é capaz de escrever um programa para 
fazer o seu micro funcionar como uma máquina 
caça-niqueis? À tela à direita mostra um 
exemplo. Você começa com 10 moedas e gasta 
uma cada vez que joga. Aperte qualquer tecla 
para começar e o computador imprimirá o 
resultado. Às instruções abaixo o ajudarão a 


escrever o programa. 


Vimensione uma 


nomes dos seis objetos 
acima (limão, cerejas, 
ameixa, melancia, uvas e 
sino). Guarde os nomes 
usando READ e DATA 
(ou INPUT). 


to o A A 


É FS(A) / 
R7 é “SINO"'S 
Ta an 


as 


matriz F$ para guardar os uma variável M para 
guardar o número de 
moedas. Inicialmente, 


faça M= 10. 


o computador esperar 
que o jogador aperte uma 
tecla qualquer. Subtraia 1 
de M (custa uma moeda 
para jogar). 


4. Faça o computador escolher um 
número aleatório entre um e seis e 
guarde-o em À. Use À como indice de 
F$ para escolher um objeto e guarde-o 
em A$. Faça isso mais duas vezes e 
guarde os resultados em B$ e C$. 


2. , 
a A 


6. Verifique se o jogador ainda tem 
pelo menos uma moeda. Se as moedas 
acabaram (M=0), pare o programa; 
caso contrário, continue o jogo. 


5. Agora você deve escrever o 
resultado na tela e fazer o computador 
decidir se você ganhou alguma coisa ou 
não, de acordo com a tabela acima. 
Para cada tipo de resultado, mande o 
computador para uma sub-rotina 
diferente. 


7. Se você usou READ no começo do 
programa, não se esqueça de colocar as 


linhas de DATA no final. 


21 


28 


Programe uma caça ao tesouro 


Nas próximas páginas, você encontrará as instruções para escrever um 
programa de caça ao tesouro, no qual terá que passar por um labirinto de 
sete quartos, recolhendo objetos . O programa é bastante complexo; procure 
seguir as instruções à risca e verifique cada etapa antes de prosseguir. 

Se ficar “empacado” em uma parte do programa, veja a resposta apenas 
pará esta parte e continue a escrever o resto do 
programa. Para poder escrever o programa, você 
deve ter uma boa idéia de como é o jogo; 
leia o parágrafo que se segue antes de 
começar. 

Regras do jogo 

O mapa à direita mostra um labirinto 
de sete quartos. Cada um tem um nome 
diferente e contém uma caixa cheia de 
objetos. As informações do mapa estão 
guardadas na memória do computador, 
mas o mapa não aparece na tela. Isto 
quer dizer que você tem que descobrir 
a localização dos quartos enquanto 
estiver jogando o jogo. Partindo de um 
quarto escolhido ao acaso, o objetivo é 
reunir todas as caixas no mesmo quarto 
em um número limitado de movimentos. 


ESTAS SAO AS PALAVRAS QUE O COMPUTADOR COMPREENDE 


2 PRETO E 
PESTILENTO 


3 


TENEBROSO 


GRANDE E |4 SÓMBRIO E 
GOSMENTO SEPULCRA 


6 ampo E |9vazor [MR 
ASSUSTADOR À VENENOSO [MH 


"Us, 
Potes 
de mel 


N,5,L,0: ANDAR PARA O NORTE, SUL, LESTE OU DESTE 
PEGAR CAIXA 

LARBAR CALXA 

MOSTRA À LOCALIZACAO DAS CAIXAS 

MOSTRA AS REGRAS DO JOGO 


À tela acima mostra os comandos que você pode usar Para tornar o jogo mais 


e para que servem. Você só pode dar um comando difícil, você só pode 

em cada jogada. carregar uma caixa de 
cada vez. 

Exemplo 


1 VOCÊ ESTA NO QUARTO 4 
ELE E SOMBRIO E SEPULCRAL 
ELE CONTEM LIXO 


QUE VAI FAZER? 
? PEGAR 


VOCE ESTA CARREGANDO LIXO 


VOCE AINDA ESTA NO QUARTO 4 
QUE VAI FAZER? 
70 


OK 


VOCE ESTA NO QUARTO 7 
ELE E GRANDE E GOSMENTO 
ELE CONTEM MOEDAS 


VOCE AINDA ESTA NO QUARTO 7. 
“QUE VAL FAZER? | 


QUE VAI FAZER? 
7 LARGAR 


OK, LIXO NO QUARTO 7 


Ta 


Como escrever o programa 
O diagrama à direita é um fluxograma. Ele mostra a 


estrutura do programa. Às instruções abaixo e nas 


páginas seguintes o ajudarão a escrevê-lo. Não se - DEFINIR 
preocupe com a sequência em que vai fazer as = 
diferentes etapas. Se usar a numeração das linhas | 
sugerida, o programa será montado na ordem correta. VARIÁVEIS 


1 Definição das matrizes e leitura dos Gosus 
dados (linhas 100-260) 


DC nO 


EscaL 
Você precisa colocar todas as A 

informações que aparecem no mapa da 
página anterior na memória do JDENTIFICAR 
computador. Para isso, vai ter que CONTEUDO 


definir várias matrizes. 


Matrizes, N,LS e O 


Em primeiro lugar, você precisa de quatro 
matrizes chamadas N,L,S e O. Os dados 
guardados nessas matrizes dizem ao 
computador que quarto está ao norte, 
leste, sul e oeste de cada quarto do 
labirinto. Dimensione essas matrizes na 
primeira linha (100)*. Cada matriz tem 
sete elementos. 


Zero significa que 
não há nenhum 
quarto nessa 

direção. Por exemplo: 
não há nenhum quarto 
a oeste do quarto 1 
DU ao norte do 
quarto 2. 


SE 


Faça uma tabela como esta para colocar os 
dados. Os números na primeira coluna são 
os índices das matrizes e representam os 
números dos quartos. Para cada linha da 
tabela, consulte o mapa dos quartos e 
coloque o número do quarto que está ao. | 
norte, leste, sul e oeste do quarto 

indicado na primeira coluna. Às primeiras 


duas linhas já estão prontas. 


Use um LEMBRAR 
comando para 


Leitura dos dados 


Se o seu micro é um 
TK-83, você terá que usar 
uma instrução INPUT para 
cada matriz. 


110 FOR Kzi TO 7 
120 READ-N(K) LUCK) ,S(K),OUK) 
130 NEXT K 

2000 DATA 2,7,6,0 


Você precisa de um loop como o que apaíece acima para guardar os dados nas 


matrizes. Copie os dados da tabela em sete linhas de DATA. À primeira é a linha 
2000 acimsz 

*Se o seu micro é um TK-83, você só pode dimensionar uma matriz por linha, de modo que 
é melhor começar na linha 10. 
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30 


inhas de DATA como no exemplo 


du 


Leia os dados 
usando outro 


Matriz D$ 


Agora você precisa de uma matriz chamada D$ para guardar as descrições dos quartos. 
Dimensione-a no começo do programa e escreva os dados como no exemplo acima. 


Matrizes T$eT 


PR 


do 


Agora você precisa de mais duas matrizes, 
T$ para guardar os nomes dos objetos e T 
para guardar sua localização. O número 
guardado em cada elemento de Téo 
número do quarto onde está o objeto cujo 
nome está guardado no mesmo elemento de 
T$. Por exemplo: no começo do jogo, T(2) é 
2 e este é o quarto onde está guardado o 
objeto T$(2) (chicletes). Durante o jogo, os 
números guardados em T mudam. 


2209 DATA GURO,i Chi Terra 
2210 DATA SANDUICHES,S,LIXO,4 


direita e guarde os dados nas 
S matrizes com o mesmo loop. 


Variáveis 

Mostra se o q 

jogador está Uma “bandeira”. Variáveis para 
carregando Depois você verá guardar dados 
alguma coisa. para te serve. temporários. 


Numero de 


jogadas já feitas. 


À figura acima mostra os nomes das variáveis que você vai usar no programa. Começando 
na linha 300, dé a todas elas um valor inicial de O. 


2 Sub-rotina Ajuda (linhas 1000-1120) 


Você precisa de uma sub-rotina para explicar 
as regras do jogo. Coloque uma instrução 
GOSUB na linha 300 e comece a sub-rotina na 
linha 1000. Escreva as instruções à esquerda e 
depois os comandos que o computador 
compreende (página 28). 


3 Escolha de um quarto ao acaso (linha 350) 
O número do quarto onde está o jogador é guardado na variável R. Para escolher o quarto 
inicial, faça o computador escolher um número ao acaso entre | e 7 e guarde-o em R na 


linha 350. 


4 Identificação do quarto e seu conteudo linhas 400-470 


Antes de tudo, diga ao jogador em que quarto está. Depois, descreva o quarto 
usando R como índice de D$. As telas acima mostram alguns exemplos. 


Vócê sabé quai 
elementos desta 


Identificação do conteúdo do quarto 
430 FOR K=i TO 7 
440 IF TtK)=R THEN PRINT T$CK): 
LET Fi 


450 NEXT K 
450 IF F=0 THEN PRINT "NADA" 
470 LET F=0 


Para descobrir o conteúdo do quarto R, você tem que consultar a matriz T, onde 
está guardado o número dos quartos onde estão os objetos. Para isso, use o loop 
acima. À instrução IF...THEN é para verificar se algum dos números em T é igual 
a R. Em caso afirmativo, o computador imprime o nome do objeto e muda a 
variável F para 1. 


A variável “bandeira” 5 Jogada (linhas 500-560) 


Agora pergunte ao jogador o que vai 
fazer e use uma linha de INPUT que 
permita ao jogador guardar um 
comando (como PEGAR, LARGAR etc.) 
na variável A$. Escreva cinco linhas de 
GOSUB que mandam o computador 
para sub-rotinas diferentes para cada 
comando. | 


A variável F diz ao computador se existe 
algum objeto no quarto depois que ele sai 
do loop. Ela funciona como uma bandeira. 
Quando um objeto é encontrado, a 
-bandeira é levantada (F = 1). Se nenhum 
objeto é encontrado, a bandeira continua 
baixada (F=0). Lembre-se de fazer F=0 
na linha 470 para usar a bandeira de novo. 


6 Sub-rotina Andar 
(linhas 1200-1260) 


Escreva a sub-rotina Andar com o 
auxílio do fluxograma ao lado. 


1. Para andar, o jogador escreve 
N,L,S ou O. Verifique qual foi a 
letra usando quatro instruções 


IF...THEN. 


2. Para descobrir o número do 
novo quarto, use R como indice da 
matriz correspondente (N,L,S ou O) 
e guarde o resultado na variável 
temporária X. 


3. Agora teste X para ver se o Ads '0"2 FAÇA 
jogador pode andar nessa direção. X= O(R) 
Se X é 0, não existe nenhum 

quarto nessa direção; você deve 


imprimir uma mensagem e usar um SIM 
GOTO para mandar o computador 

para a instrução RETURN no fim da 

sub-rotina. a 


4. Se X não é 0, coloque o número FAÇA R=X 


do novo quarto em R fazendo R=X. 


5. Coluque RETURN no final da 
sub-rotina. 31 


IMPRIMA 
“MOVIMENTO 
IMPOSSIVEL" 


7 Sub-rotina Pegar (linhas 1300-1380) 


sim | NÃO PODE 
CARREGAR 


1. O jogador só pode carregar uma caixa de NÃ MAIS NADA 
cada vez, de modo que primeiro é preciso FOR K=1TO7 
ver se está carregando alguma coisa. Para ? 


isso, teste o valor da variável C, que passa LOOP SIM 
para 1 quando o jogador pega uma caixa. Se FAÇA Y=K 
C é 1, imprima uma mensagem e mande o 
computador para RETURN. R NÃO 
NAO HA 
il NADA NO 
QUARTO 


NEXTK 


Y7 Ry 
IR MUDE VALOR 
a DE T(Y) 


PARA 999 


2. Para verificar se existe uma caixa no 
quarto, programe um loop usando IF...THEN 


para examinar a matriz T. Se algum número FAÇA 
em T é igual ao número do quarto (R), você Y=0E 051 
deve guardar o número do indice de T 


correspondente (representado por K) em uma 
variável temporária chamada Y. O 
computador pode encontrar vários números 
iguais a R. Nesse caso, quando o loop 


terminar, Y conterá o indice do últ mo 
elemento encontrado. CReTURMD) 


3. Se Y é 0, então não há nenhuma caixa no quarto, de modo que você deve mandar o 
computador para RETURN; caso contrário, o número guardado em Y diz ao computador 
que caixa deve pegar. Mude o valor de T (Y) para 999, um número que mostra que a caixa 
está sendo carregada. Faça C=1 e Y=0 e coloque RETURN no final da sub-rotina. 


8 Sub-rotina Largar (linha (Começo > 


1400-1460) 
ge É 


ER 
RM 


q ma 
Pa, E. 
VN 


3. Se T(K)= 999, 
mude para T(K)=R 
mero do quarto) 
e faça C=0 para 
NADA mostrar que O 

jogador não está 
carregando mais 


1. Verifique se 
o jogador está 
carregando 
alguma coisa, 
testando o valor4 
de €. 


2. Verifique qual das 
caixas está sendo 

carregada, procurando 
999 na matriz T. 


4. Coloque 
mensagens onde 

achar necessário e 
um RETURN no 
final. 
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9 Sub-rotina Local (linhas 1500-1590) 


Esta sub-rotina fornece ao jogador a localização de todas as caixas. Use as telas 
abaixo como modelo. Prepare um fluxograma antes de escrever o programa. 


Primeiro, teste o valor de C para ver se o jogador está carregando alguma coisa. 
Se está, descubra qual o elemento da matriz T é igual a 999 e imprima o nome da 
caixa escolhendo o elemento da matriz T$ com o mesmo indice. Para imprimir o 
conteúdo dos quartos, utilize um segundo loop. 


10 Contagem das 11 Todas as caixas estão no mesmo 
jogadas (linha 600) quarto? (linhas 610-690) 


T(5) não é 
igual a W 
e portanto 
a bandeira 
sobe e 


Se todas as caixas estão no mesmo quarto, o jogador 
ganhou. Teste os números da matriz T; se forem todos 
iguais, as caixas estão no mesmo quarto. Para isso, 
tome um elemento de T, T(1), por exemplo, e guarde- 


Na linha 600, some 1 à o em uma variável temporária chamada W. Compare 
variável M para atualizar W com todos os outros números guardados em T. Use 
o número de jogadas já uma “bandeira” para indicar se são todos iguais ou 
feitas. não. 

12 O jogador usou todas as 13 O jogador mudou 

suas jogadas? (linhas 700-780) de quarto? (linhas 800-850º 


Se o jogador colocou N,L,S ou O na 
variável A$, mande o computador de 


Escolha a quantas jogadas o jogador volta para a linha 400 para identificar o 
tem direito. Se M for maior que o novo quarto e seu conteúdo; caso 
número escolhido, o jogador perdeu. contrário, imprima a antiga localização 
Nesse caso, imprima uma mensagem e e mande o computador para a linha 


pare o programa. 500. | 33 


Respostas dos problemas 


Nas próximas páginas, você encontrará as soluções dos problemas propostos neste 
livro. Os programas foram escritos em um dialeto específico de BASIC; talvez você 
tenha que mudar algumas instruções não-padronizadas, como RND e CLS. Se um dos 
programas listados aqui não funcionar, verifique primeiro se o seu micro usa todas as 
instruções de BASIC do programa. Existe uma tabela de conversão na página 47 
para ajudá-lo. Às linhas de programas que precisam ser modificadas para o 
programa funcionar nos micros da família Sinclair estão marcadas com um A e as 
linhas corretas aparecem logo abaixo. Às linhas que precisam ser mudadas apenas 


para o TK-83 estão marcadas com um A. 


Pode ser que algumas das respostas sejam diferentes das dos programas que você 
escreveu. Se o seu programa funcionar corretamente, tudo bem. Entretanto, examine 
a resposta e compare-a com a sua, para ver qual a que contém o menor número de 


instruções. 


Exercícios com PRINT (páginas 4-5) 


Alguns quebra-cabeças 


1 40 PRINT "BOM DIA *; 
dO PRINT AS 


O ponto-e-virgula faz o computador ficar na mesma 
linha para imprimir o conteúdo de A$. 


2 40 PRINT "BOM DIA",AS 
JO apague esta linha 


A virgula faz o computador deixar alguns espaços 
antes de imprimir o conteúdo de A$. 


3 40 PRINT TAB(4): "BON DIA “SAS 
50 apaque esta linha 


Alguns computadores não precisam de ponto-e- 
vírgula depois de TAB. 


4 O PRINT" TCHAU 

50 PRINT" ih 
Uso de variáveis (páginas 6-7) 
Como escolher os nomes das variáveis 


Os seguintes nomes contêm palavras de BASIC e não 
podem ser usados como nomes de variáveis: 
LETRAS(LET); RUNS(RUN). No TK-83, os nomes das 
variáveis strings só podem ter uma letra, de modo 
que nesse micro PULGAS também não seria 
permitido. 


Teste com PRINT 
10 LET Azb6 
20 LET B=77 
A 30 LET RR$="SAPOS-MARTELOS" 
40 PRINT Às º "SRR$ 
SO PRINT "COMERAN "3B;" MOSCAS" 


Um espaço entre aspas faz o computador pular um 
espaço. 


Analisando um programa 


45 PRINT *C= “si 
do PRINT *D= *sD 


Centígrados em Fahrenheit 
40 LET C=9/B 


d0 LET D=CHA 
60 LET R=D+F 


Substitua as linhas 40 e 60 pelas linhas acima. 


Idéias para programas 


| 10 LET F$="PFº 
20 PRINT "ESCREVA A PALAVRA * 
30 INPUT P$ 
40 PRINT "A PALAVRA EM PFIAND E *s 
SO PRINT FS:PS 


A linha 50 faz o computador imprimir PF, seguido 
pela palavra que está guardada em P$. 


2 10 AL di A DISTÂNCIA *; 


20 INPU 
30 PRINT "QUANTO TEMPO LEVOU *« 
40 INPUT T 

90 LET 5=D/T 

60 PRINT "SUA VELOCIDADE FOI "595 
TO PRINT * KM/Hº 


Na linha 50, o computador calcula a velocidade e 
guarda o resultado em S*. 


3 LO LET A=30 
20 LET B=20 
50 LET 5=35 
40 LET 1=5/B 
90 LET C=AsT 


b0 LET D=0+5 

70 PRINT "ELES DEVEM CONPRAR "s 
80 PRINT Ds" SALSICHAS. " 

90 PRINT "ÉLES VAO LEVAR 4 

100 PRINT T;* HORAS" 


A e B são as salsichas que os robôs comem por hora. 
S são as salsichas que o robô 2 quer comere Téo 
tempo que o robô 2 leva para comer suas salsichas 
(S). À linha 50 calcula o número de salsichas que o 
robô 1 come no mesmo tempo (T). D é o número 
total de salsichas. 


Repetições (páginas 8-9) 
Testes com loops 


l 10 FOR J=i TO 100 
20 PRINT "BOM DIA *s 
30 NEXT J 


O ponto-e-virgula na linha 20 faz o computador ficar 
na mesma linha para imprimir a palavra seguinte. 


2 O FORJ=1 7025 
20 PRINT TAB(15)s "BOM DIA” 
30 NEXT 3 


O programa faz o computador imprimir uma coluna 
de 25 BOM DIA, a 15 espaços da esquerda da tela. 


No ed computadores, não é preciso colocar ponto-e-vírgula no final das linhas de PRINT antes de 


9 A linha 20 está errada porque interfere com o 
contador do loop. Cada vez que o computador 


passa pelo loop, a linha 20 faz o valor de I mudar 


de 1 para 0. 


Testes com STEP 


À 40 FOR 1=25 TO 1 STEP-1 
2) PRINT TABCI): "BON DIAS 
30 NEXT 1 


Use a variável do loop (1) como número do TAB. 

Certifique-se de que I não é maior que a largura da 

Rs tela. Cada vez que o loop é repetido, I diminui 
e ll. 


2 10 FOR L=5 TO O STEP-1 
20 PRINT TAB(S)sL; TAB(IO)gLEL 
30 NEXT. 
STEP-1 faz a variável do loop (L) contar para trás de 


5 até O. Cada vez que o loop é repetido, a linha 20 
imprime o valor de L e do quadrado de L. 


3 10 PRINT "INICIO *: 
20 INPUT À 
30 PRINT "FIM *; 
40 INPUT B 
50 PRINT "INCREMENTO *s 
60 INPUT C 
70 FOR J=A TO B STEP E 


90 NEXT Jd 


O loop nas linhas 70 a 90 usa À como valor inicial 
do contador, B como valor final e C como 
incremento. 


Mensagem secreta 


40 PRINT “MENSAGEM SECRETAS 
20 PRINT "MEMORIZE EM 5 SEGUNDOS" 
30 PRINT "ANTES QUE DESAPARECAS 


RINT 
50 PRINT "ENCONTRE. AGENTE X NO AEROPORTOS 
60 FOR I=1 TO 1000 Loop de espera 
70 NEXT I 


Apaga a tela 
Desenhando na tela 


2 SO PRINT TAB(A-K); *eº; 
60 PRINT TAB(ASK)s “as 
70 NEXT K 


À é o vértice do triângulo. Para imprimir O lado 
esquerdo você subtrai K e À e para imprimir o 
direito você soma K a A. 


3 3 ipague esta linha. 
É FOR fes TO 1 STEP-I 
80 FRINT TAS(A)s"e" 


Mude as linhas acima para imprimir a figura de 
cabeça para baixo. Para fazer as outras figuras da 
página 9, use o mesmo programa com diferentes 
números em TAB. 


Problemas com loops (páginas 10-11) 
Loop para fazer o programa ficar mais lento 


Você pode acrescentar q seguinte loop interno: 


45 FOR K=1 TE 1000 
46 NEX; k 


Erros em loops 
Às linhas SO e 70 estão erradas. Devem ser assim: 


30 NEXT K 

TO NEXT I 
Contador binário 
Para fazer um programa capaz de contar até 
11111111, você precisa de mais quatro loops 
(E,F,G ,H). Você precisa também renumerar as 
linhas do programa e alterar as linhas de impressão, 
assim: 


PRINT R+5EZ+FRA+ERB+DEO+CESZ+ DOM 


AR128,º = *s 


PRINT A: Bic; D:EsFs6SN 


Mensagem que pisca 


10 FOR J=i TO 10 
20 CLS 


30 FOR K=1 TO 1000:NEXT K 

40 PRINT TAB(10); "PERIGOS 

dO PRINT TAB(S); “ATAQUE ESPACIAL” 

60 FOR K=1 TO 1000:NEXT K 

70 NEXT d 
Aqui está um programa para imprimir uma 
mensagem que pisca. Talvez você tenha que mudar 
o tamanho do loop de espera e os números de TAB, 
de acordo com a velocidade e o tamanho de tela do 
seu micro. o seu micro não aceita linhas com 
mais de uma instrução, coloque NEXT K em uma 
linha adicional (35). 
Relógio digital a 


10 FOR J=0 TO 39 


P 
40 FOR L=i TO 500:NEST L Fados segund 
50 CLS his ad 


60 NEXT K 

70 NEXT d 
Ajuste o loop de K para uma demora de um 
segundo. 


Decolagem de um foguete 
10 CLS 
A 20 FOR I=1 TO 20 
30 PRINT 


40 NEXT I 
50 PRINT º + 
60 PRINT º 
70 PRINT * 
80 PRINT * am 
90 PRINT º E Et 
100 de = TO 
4 110 P 


O FOR Kel TO 1000 
130 NEXT K | — Loop de espera 


140 NEXT j 


O loop das linhas 20-40 faz o computador imprimir 
linhas vazias, de modo que o foguete aparece na 
parte de baixo da tela. Às linhas 50-90 desenham o 
foguete. O loop nas linhas 100-140 deve ser repetido 
um número de vezes igual ao número de linhas da 
sua tela. Cada vez que o loop é repetido, o 
computador imprime uma linha em branco e o 
foguete sobe uma linha na tela. 


Micros da família Sinclair 
Para rodar o programa no TK-85, aperte ENTER 
ando a mensagem scroll aparecer na tela. 

ÁPa ara o TK-83, faça as seguintes mudanças: 


20 FOR I=1 TO 17 
Sc | 


110 SCROLL 


Programa de ginástica 
10 FOR J=1 TO 25 STEP 2 
20 CLS 


30 PRINT 

MO PRINT TAB(J);º O * 
SO PRINT TAB(J)S 240) 
b0 PRINT TAB(J):º/ Nº 
70 FOR K=i TO 1000 
80 NEXT K 


90 CLS 

100 PRINT TAB(J+1 2 14020 

110 PRINT TAB(J+1);" Q * 

120 PRINT TAB(J+1): “ÍA 

130 FOR K=i TO 1000 

140 NEXT K 

150 NEXT J 

O número de repetições do loop de J deve ser igual 
ao número de colunas da sua tela. Às linhas 40 a 60 
mostram O ginasta na primeira posição. Às linhas 
70-80 e 130-140 são loops de espera. As linhas 100 a 
120 mostram o ginasta na segunda posição. 


Exercícios com JF... THEN 
(páginas 12-13) 

Tabuada do 13 

do IF BX)J4A THEN PRINT "ERRADO. *; 
de" RX CSÃs! = "eJtA 


Acrescente esta linha para o computador dizer que a 
resposta está errada e fornecer a resposta certa. 


Senha 
0 IF P$<)S$ THEN PRINT “ERRADO. 
VA ENDORA" 


Acrescente a linha acima para completar o 
programa da senha. 


10 LET S$="SALSICHAS” 

20 LET N=007 

J0 PRINT "SENHA,POR FAVOR "s 
40 INPUT P$ 

d0 PRINT "NUMERO SECRETO º: 
b0 INPUT NS 


70 IF P$<25$ OR NSCON THEN PRINT 
"ERRADO. VA EMBORA" 

BO IF P$=S$ AND NS=N THEN PRINT 
“OK. PODE ENTRAR" 


No programa acima, o computador também pede um 
número secreto. 


Calculadora 
» PRINT um UM NUMERO *: 


20 INPUT 
30 PRINT "DIGA OUTRO *; 
40 INPUT Y 

JO PRINT "VOCE QUER «º 

60 PRINT "SOMAR, SUBTRAIR, DIVIDIR 
70 PRINT "DU MULTIPLICAR?º 


80 INPUT ÀS 

90 IF A$="SOMAR" THEN LET A=X+Y 

100 IF A$="SUBTRAIR" THEN LET A=X-Y 
110 IF A$="DIVIDIR" THEN LET A=X/Y 

120 IF A$="MULTIPLICAR? THEN LET A=Xey 
130 PRINT "A RESPOSTA E "sÀ 


À operação que o computador executa depende da 


36 palavra que você coloca em A$. 


Jogos de adivinhação 


45 LF YXX THEN PRINT "NULTO GRANDE" 
46 IF 12X THEN PRINT “MUITO PEQUENOS 


Acrescente as linhas acima para o computador dizer 
se o seu palpite é muito grande ou muito pequeno. 


5 LET N=0 
So LET N=N+1 
56 IF N>5 THEN STOP 


Acrescente as linhas acima para contar o número de 
tentativas e parar o programa depois de cinco. 


Jogo de palavras 

10 PRINT “DIGA UMA PALAVRA "; 
20 INPUT W$ 

30 PRINT “DIGA UMA PISTA "; 
40 INPUT C$ 


d0 CLS 

60 PRINT "PISTA? 

70 PRINT C$ 

80 INPUT 6$ 

90 IF 6$=N$ THEN GOTO 120 
100 PRINT “NAOº 


110 GOTO 80 

120 PRINT "SINº 

Nas linhas 10 a 40 o computador pede uma palavra e 
uma pista. Às linhas 50 e 60 limpam a tela e 


imprimem a pista. À linha 110 manda o computador 
de volta à linha 80 para outro palpite. 


Corrida de cavalos 
Aqui estão as instruções IF...THEN completas: 


80 IF Gi=Hi AND 62=H2 THEN GOTO 160 
90 IF 61=H2 OR 62=H1 THEN GOTO 150 
100 IF (Gi=Hi AND 62<>H2) OR (62=N2 
AND G1<>H1) THEN GOTO 140 

120 IF N=4 THEN GOTO 170 


Linha 80: Você deve mandar o computador para a 
linha 160 se os dois palpites estiverem certos. 
Linha 90: Se o cavalo está certo mas a colocação 
está errada, mande o computador para a linha 150. 
Linha 100: Se um dos palpites está certo, vá para a 
linha 140. 

Linha 120: Depois de quatro tentativas, mande o 
computador para a linha 170. 


Idéias para melhorar o jogo 


13 LET 550 
140 PRINT "UR PALPITE CERTO"SLET 
9=2:60T0 120 
160 PRINT "CERTO" LET S=4 
180 PRINT "VOCE FEZ *;5:º PONTOS” 


Acrescentando as linhas acima ao programa, você 
ganha quatro pontos se acertar os dois cavalos e dois 
se acertar apenas um. À variável S é usada para 
guardar a contagem. 


190 PRINT “QUER JOGAR DE NOVO? (S/N)º 
200 INPUT 78 | 

210 IF 2$="Sº THEN GOTO 10 

220 IF 27$="Nº THEN STOP 


Para dar ao jogador a oportunidade de jogar de 
novo, acrescente as linhas acima. 


Números aleatórios (páginas 14-15) 
Número aleatório entre 10 e 20 


INT(RND(1)211+10) 


Para obter um número aleatório entre 10 e 20, 
multiplique o número de números que deseja (11) e 
depois some o primeiro da lista (10). Use a instrução 
RND apropriada para o seu micro. 


Quebra-cabeças 
20 LET K=INT(RND(1)420+1) 


Mude a linha 20 do jogo de adivinhação de números 
para fazer o computador escolher um número ao 
acaso entre 1 e 20. 


Sequência de números 
Acrescente as linhas abaixo ao programa: 


d PRINT "DESCUBRA O NUMERO" 
7 PRINT "SEGUINTE NESTA” 
9 PRINT "SEQUENCIAS 
10 LET X=INTIRND(1)*10+1) 
20 LET Y=INTIRND(1)210+1) 
60 LET A=X+4kY 
70 INPUT N 
80 IF N=A THEN PRINT “CERTOº 
90 IF N<A THEN PRINT “ERRADO. E *; 
100 GOTO 5 


A linha 60 calcula o número seguinte da sequência. 


Fuga do planeta Zorgo 
10 LET C=10 
20 PRINT "VOCE TEM "sCs* CREDITOS" 
30 PRINT "QUANTO VOCE APOSTA "s 


40 INPUT B 
SO IF B>C THEN PRINT “VOCE NAO TEN |— 


alia CREDITOS": GOTO 20 


=[-B 


Sequência aleatória 


24 LET R=INTIRND(L)43+1) 
29 IF R=i THEN GOTO 30 
26 IF R=2 THEN GOTO 40 
27 IF R=5 THEN GOTO 50 


Para escolher uma sequência ao acaso, faça o 
computador escolher um número aleatório entre 1 e 
3 e guardá-lo em R. Mande o computador para uma 
sequência diferente para cada valor de R. 


% FOR I=i TO 3 
33 PRINT N+141 


43 PRINT 181-Y 
49 NEXT I 
47 LET A=484-Y 


49 GOTO 70 

JO FOR I=1 TO 3 

d3 PRINT X+Y-Iel 

do NEXT I 

o7 LET A=k+y-444 

Para acrescentar três sequências diferentes ao 

pra apague as linhas 30-60 e acrescente um 
oop separado para cada sequência. No final das 


primeiras duas sequências, mande o computador 
para a linha 70. 


C é para contar o número de créditos. 


Verifica se o jogador está apostando mais 
créditos do que tem. 


Calcula quantos créditos restaram. 


60 L 
70 LET X=INT(RND(1)26+1) asd reto : 
BO LET V=INTIRND(1) 26+1) [—— Escolhe dois números aleatórios entre 1 e6. 


90 PRINT "APERTE P PARA JOGAR *; 
100 INPUT P$ 


110 IF PSP" THEN GOTO 90 Verifica se houve uma jogada. 
o Ra tarda Yy Mostra o resultado na tela. 
140 IF LeY=10 OR X+Y=11 THEN GOTO quo — Manda o computador para linhas diferentes, 
150 IF X+Y=6 OR K+Y=7 THEN GOTO 190 dependendo do resultado. 

160 PRINT “PENA. VOCE aÃ Verifica quantos créditos restam. Se C=0 

To Rã GOTO 290 manda o computador para o final do programa. 
190 PRINT "FICOU NA MESMA" Manda o computador de volta para outra 


200 LET C=C+B: GOTO 2U aposta. 

210 PRINT "MUITO BEM. GANHOU O TRIPLOS 

220 LET C=C+(Be3) Atualiza o valor de C. 

230 IF C)=50 THEN GOTO nd 

240 GOTO 20 Se C=50 ou mais, manda o computador para o 


250 PRINT grin O DOBRO" final do programa. 
260 LET C=C+(Be2 
270 IF C)=50 TEM GOTO 320 


280 GOTO 20 
290 PRINT "SEU DINHEIRO ACABOU" 
300 PRINT "NAO PODE MAIS FUGIR” 


s10 STOP 
320 PRINT "NULTO BEM. VOCE PODES 
É DD PRINT a DE ZORGO CON *; 


38 


Jogo do Papel, Pedra e Tesoura 


Modifique as linhas abaixo para que o programa 
funcione corretamente: 


30 LET R=INTIRND(1)43+1) 

66 IF R=5 THEN LET C$="TESOURA" 
150 IF C$="TESDURA” AND A$="PEDRA" 
THEN LET F=i 
190 PRINT “PORTANTO” 

210 IF F=i THEN PRINT "VOCE GANHOU" 
230 IF F=0 THEN LET C=C+l 

240 IF F=! THEN LET Azh+i 

280 iF C<:0 AND AX10 THEN GOTO 40 


Mexendo com caracteres 
(páginas 16-17) 


Testes com strings 
À 240 PRINT TABCKO:MIDS(NS,K,1)º 


Isto faz com que o computador imprima uma letra de 
cada vez, na posição K, começando com a letra 
número 


10 LET K$="CANGURU" 

20 LET L=LENCK$) 

30 FOR J=L TO 1 STEP-Í 
1340 PRINT MID$(K$,J,1): 

29 NEXT J 


Use um loop com incremento-1l para fazer o 
computador escrever uma palavra ao contrário. 


: A 50 PRINT RIGHTS (5$,L-J) +LEFT$(S$ (3) 


Cada vez que o loop é repetido, RIGHTS (S$,L-)) faz 
o computador imprimir as primeiras L (tamanho da 
palavra) menos J letras à direita de CABANAS, 
seguidas pelas outras J letras. Experimente rodar o 
programa com outras palavras. 


A maior palavra 


d6 TF LEN(W$) >LEN(AS) 
THEN LET A$=N$ 


Cada vez que o loop é repetido, o Renphtacor 
compara o tamanho de W$ com o de A$. Se W$ é 
maior, ele guarda W$ em A$. No final, A$ contém a 
maior de todas as palavras. 


A menor palavra 


10 LET AS="KXK!!ILLABCaRRIZS!!!! 
PXAXAXXAXA” 


dO IF LENCWS)CLENTAS) 
THEN LET AS=U$ 
TO PRINT "MENOR PALAVRA <º 


O programa é igual ao da palavra maior, a não ser 
pelas linhas 10 e SO. À linha 10 contém uma string 
cujo comprimento vai ser comparado com o das 
palavras escolhidas. Não importam os caracteres que 
você coloca em A$ na.linha 10. 


Editor de texto 
Aqui estão as linhas completas: 


40 LET S$="see5g4* -* 
7O LET W$=".meijger 


Você precisa acrescentar espaços dos dois lados de 
S$ e W$ para tez certeza de que na linha 140 o 
computador vai procurar apenas palavras inteiras. 
Sem os espaços, o computador poderia escolher 
pedaços de palavras que fossem iguais a S$ ou W$. 

perimente rodar o programa sem esses espaços 
para ver o que acontece: 


100 LET LS=LEN(S$) 
110 LET LW=LEN(W$) 


As linhas acima fazem LS igual ao comprimento de 
S$ e LW igual ao comprimento de W$. A linha 100 é 
repetida na linha 160 para fazér LS igual ao 
comprimento da nova frase. 


A 140 JF MID$CSS,K.LW)=N$ 
THEN LET A$=5$ 


Cada vez que o loop é repetido, MID$(S$,K,LW) faz 
o computador verificar LW (o tamanho de W$) 
caracteres em S$, começando no caractere K, 
Quando ele encontra uma sequência de caracteres 
igual à que está guardada em W$, ele guarda toda a 
frase em uma nova variável, A$. 


A 150 IF A$=5$ THEN LET S$=LEFTS(AS,K) 
+NS+RIGHTS (A$,LS- (K+LW-2)) 


LEFTS$(AS$,K) separa os caracteres à esquerda da 
palavra que você quer substituir. À melhor maneira 
de compreender como esta linha funciona é 

RAP er menta: em uma frase em um pedaço de 
papel. 


180 IF KC=LS5-LW+1 THEN GOTO 140 


Mande o computador de volta à linha 140 para 
verificar se a palavra que você quer mudar ocorre 
de novo na mesma frase. 


Alterações para os micros da 
família Sinclair 
Testes com strings 


Use as linhas abaixo nas respostas aos 
testes 1, 2 e 3. 


1 40 PRINT TABIKDENSCK TO K) 
2 40 PRINT KSCJ TO J): 


3 50 PRINT S$(J+1 TO )+S$C TO d) 


Editor de texto 


E od S$(K TO K+LiW-1)=N$ THEN 
150 IF n$=58 THEN LET S$=A$( TO K) 
+NS+ASIKeLH-1 TO ) 


Use as linhas acima no programa Editor de 
texto. 


Outras instruções (página 18) 
Testes com letras 
À 10 FOR K=65 TO 90 


Estes são os números para imprimir o alfabeto no 
o ASCII. Para o TK-83, os números devem ser 
38 a 


2 10 FOR K=97 TO 122 
20 PRINT CHR$(K): 


50 NET K 


Estes são os números para imprimir o alfabeto em 
letras minúsculas. (Em alguns micros, que não têm 
letras minúsculas, esses números são usados para um 
conjunto diferente de letras maiúsculas.) 


3 AO LET R=INTIRND(1)426+65) 
20 PRINT CHR$(R); 
30 GOTO 10 


Esta é a maneira mais simples de imprimir uma série 
de letras ao acaso. Para o TK-83, substitua 65, o 
número de código da primeira letra do alfabeto, por 
38. 


Como comparar letras 


10 INPUT X$,Y$ 
20 E Isca THEN PRINT 165º VEM 


ANT 
30 IF V$cIs E PRINT Y$;º VEM 
DEPOIS DE "sk 


40 GDTO 10 


Se o seu micro só permite uma variável depois de 
INPUT, use duas instruções INPUT em linhas 
sucessivas. 


Caixa alta/caixa baixa 


50 LF X$)="Aº AND 194="2º THEN PRINT 
CHR$ (ASC (X$)-32): 
60 TF X$)="A" AND A$€="7º THEN PRINT 
CHR$ (ASC (X$) +32) 4 


O número que falta nas linhas 50 e 60 é 32. Esta é a 
diferença entre o número de código das letras 
maiúsculas e o das minúsculas. 


Códigos secretos (página 19) 
Código alfabético 


Aqui está o programa completo. Se o seu micro é o 
TK-85, mude a instrução ASC para CODE. Se é o 
TK-83, use o programa à direita. 


10 PRINT “DIGA SUA MENSAGEN* 
20 INPUT M$ 
30 FOR J=i TO LEN(M$) 
A 4 Tá o cel qd 11) 
d0 IF Xcb5 OR X290 
THEN LET N=X: GOTO 100 
60 IF INT(J/2)=)/2 THEN LET N=X+i 
70 1E INT(J/2)<)]/2 THEN LET N=k-1 
80 IF N<65 THEN LET N=N+26 
90 IF N>90 THEN LET N=N-26 
100 PRINT CHR$(N): 
110 NEXT J 


A Código alfabético para o TK-83 


10 PRINT "DIGA À SUA MENSAGEM" 

20 INPUT N$ 

30 FOR J=i TO LEN(M$) 

40 LET X=CODE(M$(J TO Jd) 

90 IF X<38 OR 263 THEN LET N=k 
do IF XX38 OR 1263 THEN GOTO 100 
60 IF INT(J/2)=J/2 THEN LET N=k+t 
70 IF INT(J/2)20/2 THEN LET N=k-1 
d0 IF N<38 THEN LET N=N+26 

90 IF N>63 THEN LET N=N-26 

100 PRINT CHR$(N): 

110 NEXT J 


As linhas 60-70 verificam se a variável ] é par ou impar dividindo ] por 2 e usando INT para transformá-lo 
em número inteiro. O computador então verifica se a resposta é J/2; em caso afirmativo, J é par. 


Código com número-chave 


Use o programa de código alfabético e acrescente 
linhas para escolher um número secreto. Você terá 
que mudar a linha 60 para somar o número-chave 
(K) ao número de código ASCII (X) de cada 
caractere, e apagar a linha 70. 


25 PRINT "DIGA O NUMERO-CHAVE * 
27 INPUT K 


60 LET N=X+HK 

70 Apague esta linha. 
Código variável 
Este programa também é semelhante ao do código 
alfabético. Na linha 60, você deve somar a variável 
do loop (]) ao número de código ASCII de cada 
caractere. 

60 LET N=k+J 

70 Apague esta linha. 


Decodificador do código variável 


Para programar um decodificador, mude a linha 60 
para: | 


60 LET N=k-) 


ICódigo de inversão 


10 INPUT “NENSAGEM “sM$ 
20 FOR J=1 TO LEN(M$) STEP 2 
(330 PRINT MIDSCN$,J+1,1): 
A 40 PRINT NIDS(N$,J,1) 
SO NEXT 3 


O incremento 2 faz o computador contar de dois em 
dois. Cada vez que o loop é repetido, o computador 
imprime o segundo (] + 1) de um par de caracteres, 
seguido pelo primeiro (]). 


Código de inversão para os micros da 
família Sinclair 


30 PRINT M$(J+1 TO del); 
40 PRINT N$43 TO d); 


Exercícios com INKEY$ 
(páginas 20-21) 
Imprimindo BOM DIA 

10 LET A$=INKEY$ 


Use a instrução 
INKEYS$ apropriada 
para o seu micro. 


Monta a ES 


20 IF A$="" THEN PRINT" 

30 LF A$()"* THEN PRINT “BÔM DIA": Fazendo o computador esperar 

40) GOTO 10 10 LET A$=INKEY$ 

Enquanto nenhuma tecla é apertada, A$ fica vazio e 20 IF A$="" THEN GOTO 10 

o computador imprime espaços (linha 20). C .ando 30 Resto do programa... 

uma tecla é apertada, o caractere correspondente é 

guardado em A$ e o computador imprime BOM DIA À linha 20 faz o computador repetir a linha 10 
(linha 30). enquanto nenhuma tecla for apertada. 


Descubra os erros 
Corrija as linhas abaixo para que o programa funcione. 
20 PRINT "APERTE QUALQUER TECLA" | Coloque as aspas que faltam. 
50 LET A=INT(RND(1)425+1)———— — Multiplique por 25 e some 1 para ter um 
| a número aleatório entre 1 e 25. 
d0 PRINT Kg! + Cata” = [—————— Tire as aspas antes de X. 
10 LET AfmINKEY$S JP O nome da variável deve vir antes de INKEYS$. 


140:1F N£50 THEN GOTO 90 ———  N deve variar de 1 a 50 para todas as respostas 


possiveis aparecerem na tela. 
160 FOR K=1 TO 1000:NEXT KI——————————— Coloque a variável correta depois de NEXT. 
1710601040] ————— Mude o número da linha para que o valor de N 
volte a O. 


190 PRINT “ACERTOU. A RESPOSTA E "sk +] Os nomes das variáveis não devem ficar dentro 


das aspas. 


Exame de motorista (página 21) Alterações para o TK-83 


Este é o programa para o exame de motorista. Acrescente a linha: iz SEROLL 
Neste micro, o programa funciona melhor com o 
10 CLS sistema de contagem. Quando você bater, deve 
E =. E apertar CONT para fazer o computador continuar o 
= programa. 
40 LET N=10 
J0 LET R=L+N Quando L chega à extremidade da tela, o valor 
AAA Sire 
dO JF Nei THEN LET LL São N=0, 0 valor de L diminui de 1. 
90 IF N=0 THEN LET L=l-1 | a 
100 LET AS=INKEY$ Estas linhas permitem que você dirija o carro. 
110 IF A$="2" THEN LET C=C+i Imprime a estrada e o carro. 


120 IF A$="<" THEN LET C=C-1 | o 

130 PRINT TAB(L); HS: TAB(C): "e": TABIRIS Ot? Y Verifica se o carro bateu. 

140 IF C=L OR C)=R THEN PRINT “eee BATEU dee” Manda o computador de volta à linha 50 para 

150 GOTO 30 tornar a calcular o valor de R cada vez que L 
varia. 


ia 


Se o programa estiver muito rápido, acrescente o 
seguinte loop de espera: 


142 FOR K=i TO 400:NEXT K 
Sistema de contagem Para fazer ziguezagues 


140 IF C<=l OR C=R THEN GOTO 160 
149 IF A$42"º THEN LET S=S+1 


“um e." 73 IF L=5 06 2=20 CHEN 
190 LET CReCRAL LET N=INTIRND(1)42) 
180 IF CRX=3 THEN GOTO 20 76 IF L=i5 OR L=20 THEN 
190 PRINT "O J060 ACABOU" LET N=INT(RND(1) 22) 
200 PRINT "VOCE FEZ *555º PONTOS" 
210 STOP | 
À linha 145 lhe dá 1 ponto cada vez que você dirige Uma maneira de fazer isto é deixar de vez em 
o carro sem bater. À linha 180 faz o programa parar quando que o computador escolha ao acaso para 
depois de cinco batidas. Você precisa dar a onde vai a estrada. Para isso, você pode mudar 


(número de batidas) e S (a contagem) o valor inicial aleatoriamente o valor de N quando L é igual, por 
40 Ono começo do programa. exemplo, a 5, 10, 15e 20. - 


Quebra-cabeças com DATA 
(páginas 22-23) 
Lista de nomes 


JO IF X$="JORGE" THEN:PRINT "SEU NOME NAO 
ESTA NA LISTA": STOP 

80 DATA CARLOS, LAURA, LUCIANO 

90 DATA MARCOS, LUZIA, JORBE 

Coloque os nomes que quiser em listas de DATA 
como as das linhas 80 e 90 acima, separando os 
nomes por vírgulas. Coloque o último nome da lista 
na linha 50. Se o seu micro não aceita linhas com 
mais de uma instrução, repita a instrução IF...THEN 
com STOP em uma outra linha (55, por exemplo). 


Uso de RESTORE 


10 FOR J=a5 TO 90 
0 FOR I=1 19 —————— mm Número de dados 


2 TO 

AM E: LEFTS(N$, 1)=CHK$(J) THEN PRINT N$ 
Alterações para a família Sinclair 
40 IF N$C1 TO 1)=CHR$(J) THEN PRINT N$ 
Descubra os erros 


1. Como os dados contêm caracteres que não são 
números, como - e /, você deve mudar a variável da 
linha 20 para uma variável string, como 


Códigos ASCII 


Catálogo telefônico 


10 PRINT "QUAL O NOME DA PESSOA?" 
20 PRINT 

30 INPUT ÇA 

40 READ X$,Y 

50 IF N$=1$ THEN 6oT0 80 


70 BOTO 40 

80 PRINT "TELEFONEs*:Y$ 
90 PRINT 

100 PRINT “QUER CONTINUAR"; 


110 INPUT ÀS 

120 IF A$="SIM" THEN GOTO 150 
130 IF A$="NAO* THEN STOP 

140 PRINT "NãO ENTENDI": GOTO 90 
150 RESTORE: GOTO 1 
160 DATA ERREDDIS DEDDIS.222-3450 
170 DATA PRINCESA LEIA 


-898 
Uso de matrizes (páginas 24-25) 


Matrizes numéricas 

10 DIM N(g) 

50 DATA 1066,1216,1485,1603,1665,1959 
impressão dos dados 

Você precisa usar um loop para imprimir os dados 
(lembre-se de mudar o número da linha de DATA): 
JO FOR K=1 TO 6 

60 PRINT ºN(º5K3") VALE “sNÍK) 

70 NEXT K 


Este loop imprime ao acaso os elementos da matriz: 


dO FOR K=1 TO 10 
60 LET R=INT(RND(L) 26+1) 
70 PRINT N(R) 


80 NEXT K Mudanças para a 

Matrizes string família Sinclair | 
A 10 DIM N$(5) 

20 FOR I=t TO 8 10 DIM N$45,7) 
da 30 READ N$(1) da 30 INPUT N$tT) 

40 NEXT I 

50 FOR I=1 TO 5 


0 
60 PRINT "N$(º515º) TEM “aNSCI) 
70 NEXT 1 
BO DATA JORGE.CINTIA.OLGA, LEO, EMA 


60 TE X$=" " THEN a “NAO ESTA NA LISTA": GOTO o Ra o último nome da sua lista nesta linha, entre 


Coloque os nomes e números em linhas de DATA. 
0 En o | — | 
(033) 2970-8989 


2. À instrução GOTO faz o computador continuar 
tentando ler dados mesmo depois de chegar ao final 
da lista de dados, de modo que vai aparecer uma 
mensagem de erro como “OUT OF DATA AT LINE 
50" ("Dados esgotados na linha 50"). Para evitar este 
problema, você pode usar um loop que se repita 
tantas vezes quantos forem os dados ou colocar o 
último dado em uma instrução IF...THEN, como no 
programa Lista de Nomes. 


Bar Bado 


10 PRINT "BEN-VINDO AQ BAR BADOS 
20 PRINT "QUANTO PODE GASTAR" 
30 INPUT 1X 


40 PRINT 
30 PRINT “EIS O QUE VOCE PODE PEDIR: * 
60 PRINT 

70 READ Y$.Y 

80 IF Y(=k THEN PRINT Y$ 

90 IF Y$="CAFEZINHO" THEN STOP 

100 GOTO 70 

110 DATA ENSOPADO DE BODE, 1990. 


Coloque todos os outros pratos e preços em linhas de 
DATA, deixando CAFEZINHO para último. 


Lê os nomes em X$ e os números em Y$ 


Vai para a linha 80 quando encontra o nome. 


Você precisa desta linha para o'caso de alguém 
escrever algo que não seja sim ou não na linha 100. 


Mande o computador para o inicio da linha de 


DATA 


Calendário 


Eis as linhas e variáveis que estavam faltando: 


A 10 DIM M$(12),D(iz) 
A 30 READ N$(K),DIK) 


70 PRINT NS cmi; TEM *; 
80 PRINT D(N);' DIAS" 


As linhas de dados devem ser assim: 


4490 DATA JANEIRO,31 


Acrescente as seguintes linhas: 


dO PRINT "QUAL O NOME DO MES?º 
60 INPUT AS 


62 FOR I=i TO 12 
A 63 IF M$(1)=AS THEN LET Fz] 


64 NEXT 1 
70 PRINT AS; TEM *: 
80 PRINT D(F);" DIAS * 


Mudanças para a família Sinclair 
10 DIM N$(12,9) 


13 DIM Dtiz) 
dA 30 INPUT M$CK) 
A 35 INPUT DIK) 


63 IF M$CI)C TO LEN(AS))=AS THEN 
LET F=i 


Programa de sugestões 


A 10 DIK Is(10) 


20 FOR K=1 TO 10 


o READ I$(K) 


O NEXT K 
50 PRINT “ESCOLHA UM NUMERO DE à À 10º 
60 INPUT N 


TO PRINT “VA “a 

80 PRINT I$IN) 

90 PRINT “OK "; 

100 INPUT A$ 

110 IF A$="SIM" THEN STOP 

120 PRINT:GOTO 50 

130 DATA PLANTAR BANANEZRA.AO CINEMA 


Coloque o que quiser na linha 130 e seguintes. 
Mudanças para a família Sinclair 
10 DIM I$(10, 2) 


A 30 INPUT I$tK; 


Conte o número de caracteres da sua string mais 
comprida e coloque o numero na instrução DIM. 


Gráfico de números aleatórios 


100 FOR k=1 TO 10 
110 PRINT KsTAB(4): 
120 FOR L=i TO Alk) 
130 PRINT “8º; 

140 NEXT L 

150 PRINT 

160 NEXT K 


Uso de sub-rotinas (página 26) 
Pesquisa de sorvete 


o da RA 
as ED 160), NIK) 


40 GOSUB 70 
d0 NEXT K 


60 STOP 

70 PRINT ISCKISTABCIL" Ss 
d0 FOR L=i TO NCK) 

90 PRINT “4º; 

100 NEXT L 

110 PRINT 


120 RETURN 
130 DATA MANGA, 1, Nao 8 | 
140 DATA COCO, 8, MORANGO, 

150 DATA SRAVÍCLA, 18 

Você precisa da instrução TAB na linha 70 para que 
o computador imprima asteriscos no mesmo lugar em 
todas as linhas. 


Mudanças para a família Sinclair 
10 DIM 1$(5,10) 


Vinte perguntas 


A ld DIM 98/20) A(20) 


20 FOR K=1 TO 20 


A 30 READ QS(K) A(K) 
40 NEXT K 


90 FOR L=i TO 20 

80 PRINT Q$(L) 

70 INPUT & 

80 IF X=AIL) THEN PRINT "CERTO? 

90 IF AC>A(L) THEN PRINT “IENDRANTE! 


A RESPOSTA E "sA(L) 
100 PRINT 


110 NEXT L 

120 DATA QUANTAS PERNAS TEM UMA CENTOPEIA?,100 
130 DATA GUANTOS JOGADORES TEM 

UM TIME DE VOLEI?,5 


Mudanças para a família Sinclair 
10 DIM 0$120,2) 


ja DIM A(20) 
4 40 INPUT OS(K) 


n d9 INPUT ÁCK) 


Conte o numero de caracteres da sua string mais 
comprida e coloque esse número na instrução DIM. 


Programa da máquina caça-níqueis 


10 DIM F$(6 

20 FOR Kz=i TO 6 
30 READ FSIK) 
40 NEXT K 


60 LET W=10 

70 PRINT "VOCE TEN "SN" NOEDASº 
BO LET I$=INKEY 

85 PRINT "APERTE QUALQUER TECLAS º; 
90 IF 1$x** THEN GOTO BO 

100 LET Mei é 


110 CLS 

120 LET o di 
130 LET AS=F | 
140 LET ANT RO e) 
150 LET B$=FSCA 

160 LET A INT(RMO (1) 0661) 
Tt Al CO=FS(A) 


180 PRINT 
190 PRINT ASgº “588º “9C8 | — Imprime as frutas. 


210 IF A$=B$ AND B$=CS AND 
C$="CEREJAS" THEN GOSUB 270 
220 IF A$zB$ AMD B$=C$ 
CSC)P CEREJAS” THEN GOSUB 310 
230 IF (AS=B$ AND B$<)C$) OR 
(AS=C$ AND C$C>D$) OR (D$=09 
AND C$<2A$) THEN GOSUB 330 
240 IF NO THEM GOTO 70 
230 PRINT "SEU DINHEIRO ACABOU” 
260 STOP 


Escolhe três frutas em F$. 


Verifica qual 
foi o prêmio. 


270 PRINT *3 CEREJAS" 
N 1º sub-rotina. 


[e 2º sub-rotina. 
— 3º sub-rotina. 


Mudanças para a família Sinclair 


10 DIM F$(6,6) 
AM INPUT F$LK) 


A 35 INPUT NIK) 
Afunde o submarino 


200 PRINT "ERROU" 

210 PRINT “VA PARA *; o Ae die 

do E RA ol 
Nº; 370 LET Nejs2 

240 IF BY THEN PRINT “5 *; 390 RETURN 

250 IF A=X THEN GOTO 280 390 DATA LINAO, CEREJAS, ELMO 

2h0 IF A<X THEN PRINT “E” 400 DATA SINO 

270 IF AX THEN PRINT "O" 

280 RETURN 


RETURN 
S10 PRINT "3 IGUAIS” 
320 PRINT "VOCÊ GANHOU 3 MOEDAS” 


Esta é a sub-rotina para comparar a posição do 
no com o palpite e imprimir uma mensagem 
na tela. 


Programa de caça ao tesouro (páginas 28-33) 


Aqui está o programa completo do jogo de caça ao tesouro, listado parte por parte, na ordem correta para 
ser executado. Às alterações para a família Sinclair estão no final. 


1 Definição das matrizes e 
leitura dos dados 


A 100 DIM Ni) EM) SO) OM Dstoi, 
E To) 


110 FOR K=l 
A 120 READ Ni “EO, SK) NOK) 
130 NEXT K 
140 FOR K=i TO 7 
A 150 READ D$(K) 
160 NEXT K 
10 FOR K=1 TO 7 
A 180 READ T$(K).TIK) 
490 NEIT K 
200 LET M=0 
210 LET C=0 
220 LET Fal 
230 LET W=0 
240 LET X=0 
290 LET Y=0 
260 CLS 
Os dados estão da linha 2000 em diante. 


2 Sub-rotina Ajuda 


300 GOSUB 1000 
À sub-rotina está da linha 1000 em diante. 


3 Escolha de um quarto ao acaso 


A 350 LET R=INTIRND(1) 2741) 
4 Identificação do quarto 


400 PRINT “VOCE ESTA NO QUARTO * 
410 PRINT "ELE E ":D$IR) 
420 PRINT “ELE CONTEM *; 


Identificação do conteúdo 


430 FOR k=1 TO? 
da 440 IF T(K)=R THEN PRINT TAB(IS); 
T$(K) SLET F=1 


450 MENT K 
460 IF F=0 THEN PRINT TABCIS) "NADA" 
470 LET F=0 
dA 480 PRINT:PRINT 
F é uma variável “bandeira”. Na ] nha 440, a 


bandeira “sobe” (F = 1) quando un: dos números da 
matriz T é igual ao número do quarto (R). 


5 Jogada 


500 PRINT "DIGA O QUE QUER" 

S10 INPUT A$ | 

520 IF Af="AJUDA" THEN GOSUB 1000 
S30 JF Af="Nº OR Af='Lº OR A$=º5º OR 
A$="0" THEN GOSUB 1200 

540 IF AS="PEGAR" THEN GOSUB 1300 
550 IF A$="LARGAR" THEN GOSUB 1400 
Sã0 IF A$="LOCAL" THEN GOSUB 1500 


As linhas 520 a 560 mandam o computador para 
diferentes sub-rotinas, dependendo da palavra que o 
jogador coloca na variável A$ (linha 510). 

10 Contagem das jogadas 


600 LET M=N+1 


11 Todas as caixas estão no 
mesmo quarto? 


610 LET á=T(1) 

420 FOR K=2 TO 7 

630 IF W<DT(K) THEN LET Fsi 
40 NEXT K 

650 IF F=1 THEN GOTO 490 

660 PRINT "MUITO BEN. VOCE LEVOU 
TODO O TESOURO" 

870 PRINT "FARA O GUARTO "SR: 
* EM “SM; " JOGADAS! 

580 STÓP' 

h90 LET E=0 


Na linha 610, o número que está em T(1) é guardado 
na variável W. Dentro do loop (linha 630) o 
computador compara W com todos os outros números 
que estão guardados na matriz T. Se qualquer dos 
elementos de T é diferente de W, o computador faz a 
variável bandeira (F) igual a 1. Se todos os 
elementos de T são iguais a W, F continua a valer 

O, o que significa que todas as caixas estão no 
mesmo quarto. 


12 O jogador usou todas as suas jogadas? 


700 IF NC=28 THEN GOTO 730 

710 PRINT "PENA. SUAS JOGADAS ACABARAM. " 
720 STOP 

749 PRINT 


Se M é maior que 29, as jogadas acabaram e o 
programa pára. Você pode mudar à vontade o 
número de jogadas permitido. 


13 O jogador mudou de quarto? 


800 IF A$="Nº OR A$="Lº CR A$="5º OR 
A$="0" THEN GOTO 400 

810 PRINT "VOCE AINDA ESTA NO QUARTO "4R 
850 GOTO 500 


2 Sub-rotina Ajuda 


1000 PRINT “EXISTEM SETE QUARTOS NO 
LABIRINTO" 

1010 PRINT “E EXISTE UMA CAIXA EM" 
1020 PRINT "CADA QUARTO. VOCÊ TEM QUE 


LEVAR | 
1030 PRINT "TODAS AS CAIXAS PARA O MESMO 
QUARTO" 


1040 PRINT 

1050 PRINT "ESTAS SAD AS PALAVRAS QUE O 
COMPUTADOR COMPREENDE 

1055 PRINT 

1060 PRINT "N.5,L,O : ANDAR PARA O NORTE, SUL, 


1070 PRINT "PEGAR : PEGAR CAIXA” 

1080 PRINT “LARGAR : LARGAR CAIXAS 

1090 PRINT “LOCAL : MOSTRA À LOCALIZAÇÃO 
DAS CAIXAS" 


1100 PRINT "AJUDA : MOSTRA AS REGRAS DO JOGO" 


LESTE OU DESTES 


44 1110 PRINT:PRINT 


1120 RETURN 


O computador diz a você quais são as regras do jogo 

e quais as palavras que ele compreende. Cada vez 

que o jogador escreve a palavra AJUDA o 

computador mostra essas informações. 43 


6 Sub-rotina Andar 
1200 IF AS="Nº THEN LET X N(R) 
1210 IF A$="L”" THEN LET X E(R) 
1220 IF A$="S" THEN LET X S(R) 
* 1230 IF A$="D" THEN LET X WIR) 

d& 1240 IF X=0 THEN PRINT eNOVIRENTO 
IMPOSSIVEL ":GOTO 12460 


1250 LET R=k 

1240 RETURN 

Nas linhas 1200-1230, o computador verifica em que 
direção o jogador deseja ir (N,L,S, ou O). Em 


seguida, descobre qual é o quarto nessa Eireção, 
usando R como índice da matriz apropriada, 
guarda a informação em X. Se X é O (linha 1240), 
isso quer dizer que não há nenhum quarto na 
direção considerada. 


7 Sub-rotina Pegar 


da 1300 TF C=1 THEN PRINT “NAO PODE 
CARREGAR MAIS NADA: GOTO 1370 


1310 FOR K=1 TO 7 

1320 IF T(K)zR THEN LET Y=k 

1330 NEXT K 

1340 IF Y=0 THEN PRINT “ESTE QUARTO 
ESTA VAZIO” 

ao LET T4Y)=999 


60 PRINT "OK. VOCE ESTA CARREGANDO "sT$(Y) 
44 1370 LET CalsLET Y=0 
1380 RETURN 


Na linha 1320, o computador compara todos os 
números guardados na matriz T com R. Se um deles 
é igual, toma o número do indice do elemento de T 
correspondente e o guarda na variável Y. Depois do 
loop, o computador usa Y para escolher o elemento 
apropriado de T e muda o seu valor para 999 (linha 
1350). Se Y =0 (linha 1340), isto significa que o 
quarto está vazio. 


8 Sub-rotina Largar 


4 1400 IF C=0 THEN PRINT VOCE NAO 

ESTA ant NADA": GOTO 1450 

1410 FOR K=1 TO 7 

1420 IF T(K)=999 THEN PRINT TS(K)s 

* s DEIXOU NO QUARTO: "SR 

1430 IF T(K)=999 THEN LET T(KI=A 

1440 NEXT K 
1450 LET C=0 
1460 RETURN | 
O computador verifica qual o elemento de T que e 
igual a 999 (linha 1420). Em seguida, muda seu valor 
para R (linha 1430). 


9 Sub-rotina Local 
1500 PRINT “VOCE ESTA CARREGANDO "s 
da 1510 IF C=0 THEN PRINT TAB(10): 
"NADA" s GOTO 1550 
1520 FOR K=1 TO 7 
o ue mo THEN PRINT TAB(10)s T$AK) 
1550 PRINT “CONTEUDO DOS QUARTOS: * 
1560 FOR K=1 TO 7 
1570 IF LHC ON THEN PRINT TIKDg* : “sTS(K) 
1580 NEXT K 
1590 RETURN 
1 aaa 


O SC dE 4 O 


44 2060 DATA 2:4,5,1 
Estes são os dados para as matrizes N,S,L e O. 


2100 DATA FRÍO E FEDORENTO, PRETO 
E PESTILENTO 

2110 DATA TORTO E TENEBROSO, 
SOMBRIO E SEPULCRAL 

2120 DATA VAZIO E VENENOSO, AMPLO 
E ASSUSTADOR, GRANDE E GOSMENTO 


Estes são os dados para D$ 


2200 DATA OURO, 1, CHICLETES,2 
2210 DATA SANDUICHES, 3,LIXO,4 


2226 DATA POTES DE MEL! S JOIAS, 6, 
| 
Estes são os dados para T$ e T. 


Alterações para a família Sinclair 


À única alteração para o TK-85 é que as matrizes 
string devem ser dimensionadas como para o TK-83. 
Para o TK-83, devem ser feitas as seguintes 
modificações: 


Linha 100: Coloque as instruções DIM em linhas 
separadas e dimensione as matrizes string como 
D$(7,20) e T$ (7,23). 


Linha 120: Use linhas separadas de INPUT para cada 
matriz e entre com os dados quando rodar o 
programa. 


120 INPUT N(K) 
123 INPUT L(K) 
129 INPUT S(K) 
127 INPUT O(K) 


Linha 150: Use INPUT e entre com os dados quando 
rodar o programa. 


130 INPUT D$CK) 
180 INPUT TS(K) 


Linha 180: Use INPUT para a matriz T$ e LET para a 
matriz T para que você não tenha que entrar com as 
localizações iniciais das caixas cada vez que rodar o 
programa. Use um novo loop nas linhas 193-197 para 
a instrução LET, assim: 


193 FOR Kst TO 7 

195 LET T(K)=K 

197 NEXT K 

Linha 350: Use a função RND correta para o seu 
micro: 


350 LET R=INT(RNDE7+1) 


Linha 440: Use linhas separadas e repita a instrução 
IF...THEN, assim: 


440 IF TIK)=R THEN Hg Eicdiad TS(K: 
445 JF T(K)=R THEN LET 
Linhas 490 e 1110: Use o separadas. 


Linhas 1240-1510: Use linhas separadas e quando 
houver uma instrução IF...THEN, repita-a na nova 
linha, assim: 

1240 IF X=0 THEN PRINT "MOVIMENTO 

IMPOSSIVEL º 

1245 IF X=0 THEN GOTO 1260 

Linha 2000: Remova as linhas 2000 a 2220 e 
acrescente as linhas abaixo, para não ter que entrar 
novamente com os dados cada vez que for rodar o 
programa. Quando quiser jogar de novo, entre com 
GOTO 2000. (Se você apertar RUN, o computador 
apagará todas as variáveis e matrizes. ) 


2000 PRINT "QUER JOGAR DE NOVO” 
NPUT R$ 


2010 1 

2020 IF R$="SINº THEN GOTO 193 
2030 IF R$="NAOº THEM STOP 
2040 GOTO 2000 


Instruções de BASIC 


Aqui está uma lista das instruções de BASIC usadas neste livro, com uma rápida 
explicação a respeito do seu significado. As instruções marcadas com um asterisco 
variam de acordo com a marca e o modelo do micro. À tabela de equivalência da 
página 47 o ajudará a descobrir a instrução correta para o seu computador. 


ABS diz ao computador para ignorar o sinal de 
mais ou de menos na frente de um número. 
Assim, por exemplo, ABS(-5) é igual a 5. 


*ASC fornece o número de código ASCII de 
um caractere. Assim, por exemplo, ASC("A”) 
é igual a 65, que é o número de código ASCII 
para a letra À. Os micros da família Sinclair 
usam CODE em lugar de ASC. 


CHR$ transforma um número em um caractere, 
de acordo com os números de código que 
representam os caracteres no interior do 
computador. Nos computadores que usam o 
código: ASCII, CHR$(65) fornece a letra A. No 
TK-83, que usa um código diferente, À é dado 
por CHR$(38). 


CLS apaga a tela. 


*CODE é usado nos micros da família Sinclair 
em lugar de ASC, para obter o número de 
código de um caractere. O TK-85 usa o código 
ASCII, mas o TK-83 tem um código próprio. 


“DATA vide READ/DATA 


*DIM diz ao computador para reservar um 
certo espaço na memória para uma matriz. 
Para isso, a palavra DIM é seguida pelo nome 
da matriz e o número de elementos que 
contém. Assim, por exemplo, DIM A(5) 
significa que a matriz À tem cinco elementos. 
No caso de matrizes string em micros da 
familia Sinclair, deve ser indicado também o 
número de caracteres da string mais comprida. 


FOR/TO...NEXT faz o computador repetir as 
instruções entre as linhas FOR/TO e NEXT um 
certo número de vezes. Isto é chamado de 
loop. 


GOSUB diz ao computador para sair do 
programa principal e passar para uma parte do 
programa chamada de sub-rotina. GOSUB 
deve ser seguida pelo número da primeira 
linha da sub-rotina. No final da sub-rotina, a 
instrução RETURN diz ao computador para 
voltar ao programa principal, a partir da 
instrução seguinte a GOSUB. 


GOTO faz o computador saltar para a linha 
cujo número se segue à palavra GOTO. 


IF... THEN diz ao computador para fazer uma 
comparação e agir de acordo com o resultado. 
Depois da palavra IF, existe uma condição que 
o computador deve testar comparando 
informações. Se a condição é verdadeira, O 
computador executa as instruções que se 
seguem à palavra THEN; se é falsa, passa para 
a linha seguinte. 


“INKEY$ verifica o teclado para ver se alguma 
tecla está sendo apertada. Não espera que o | 
operador aperte alguma tecla, como a 
instrução INPUT, nem necessita de que a tecla 
RETURN (ENTER ou NEWLINE, dependendo 
do micro) seja apertada. À instrução muitas 
vezes é colocada em um loop de espera, para 
que o operador tenha tempo de agir. 


INPUT diz ao computador para esperar que o 
operador introduza dados através do teclado: 
durante a execução do programa. À palavra 
INPUT deve ser seguida pelo nome de uma 
variável. 


INT é a abreviação de inteiro. À instrução 
transforma um número real (número com 
algarismos depois do ponto decimal) em um 
número inteiro, desprezando tudo que se segue 
ao ponto decimal. Assim, por exemplo, 
INT(6.732) = 6. No caso de números 
negativos, tudo que está à direita do ponto é 
ignorado e o número que está à esquerda é 
“aumentado” de uma unidade. Assim, por 
exemplo, INT(-3.2) = -4. 


*LEFT$ diz ao computador para tomar um 
certo número de caracteres a partir do lado 
esquerdo de uma string. Assim, por exemplo, 
LEFT$(AS$,4) diz ao computador para tomar os 
primeiros quatro caracteres de A$. Os micros 
da família Sinclair não usam esta instrução. 


LEN fornece o comprimento de uma string, ou 
seja, o número de caracteres da string, 
incluindo espaços e sinais de pontuação. 


LET é usado para dar um nome a um espaço 
na memória e guardar alguma informação 
nesse espaço. 


LIST diz ao computador para mostrar na tela 
uma listagem do programa. 


*MID$ diz ao computador para tomar um certo 
número de caracteres do meio de uma string. 
Assim, por exemplo, MID$(A$,5,2) diz ao 
computador para tomar dois caracteres da 
variável A$, começando pelo quinto. Os 
micros da família Sinclair não usam esta 
instrução. 


Uma string é uma sequência 
de caracteres, isto é, letras, 
números e simbolos. 


Se 
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NEXT diz ao computador para voltar ao 
começo de um loop. Vide FOR/TO...NEXT. 


NEW diz ao computador para apagar o 
programa. 


PRINT diz ao computador para mostrar alguma 
coisa na tela. À instrução PRINT sozinha faz o 
computador pular uma linha. 


*READ/DATA diz ao computador para tomar 
as informações contidas em linhas iniciadas 
com a palavra DATA e guardá-las nas 
variáveis ou na matriz indicada na instrução 


READ 


REM é uma instrução usada para colocar 
comentários no meio de um programa. Ás 
linhas que começam por REM são ignoradas 
durante a execução do programa” 


RESTORE diz ao computador para voltar ao 
começo das linhas de DATA. 


RETURN é a instrução usada no final das sub- 
rotinas para dizer ao computador para voltar 
ao programa principal. 


*RIGHTS diz ao computador para tomar um 
certo número de caracteres a partir do lado 
direito de uma string. Assim, por exemplo, 


Símbolos de BASIC 


Multiplicação 


Divisão 


Raiz quadrada 


RIGHT$(A$,4) diz ao computador para tomar 
os últimos quatro caracteres de A$. Os micros 
da família Sinclair não usam esta instrução. 


*RND diz ao computador para escolher um 
número ao acaso. 


RUN diz ao computador para começar a 
executar um programa. 


*SPC diz ao computador para pular um certo 
número de espaços na tela. Nem todos os 
micros usam esta instrução. 


STEP é usado nos loops com FOR/TO...NEXT 
para indicar ao computador qual o valor do 
incremento da variável de contagem do loop. 


*TAB faz o cursor se deslocar um certo número 
de espaços na tela. Geralmente é usada junto 
com PRINT, para mostrar alguma coisa no 
meio da tela. Em alguns micros, TAB também 
pode ser usada para fazer o cursor se deslocar 
verticalmente. Na maioria dos micros, a 
instrução TAB deve ser seguida de 
ponto-e-vírgula. 


THEN é usada com IF para dizer ao 
computador o que fazer se certas condições 
forem satisfeitas. Vide IF...THEN. 


Exponenciação. Este símbolo varia de acordo 
com a marca e o modelo de micro. 


Maior que 


Menor que 


Maior que ou igual a 


Menor que ou igual a 


Diferente de 


Tabelas de conversão 


Instrução CLS INT (RND(1)*N+1)] INKEY$ 

usada neste Apaga a tela. Escolhe um número Faz o computador 
li aleatório inteiro entre verificar se alguma 
o le N. tecla foi apertada. 


INTERND(O) NL) 
=" 


INTERND(1)EN+1) IF PEEK(-16384) 
2127 THEN GET X$ 


INT (RNDEN+1) 


Conversões adicionais para os micros da família Sinclair 


Os micros na família Sinclair não processam LET X$="CONPUTADOR 
strings da mesma forma que os outros 

LEFT$ micros. Para converter essas instruções, PRINT X$(1 TO 4) 
você precisa primeiro determinar a posição COMP 

RIGHT$ do primeiro e do último caractere que 
deseja tomar. Coloque os números entre PRINT X$45 TO ) 
parênteses, separados pela palavra TO, UTADOR 

MID$ depois do nome da variável string PRINT K$(3 TO 5) 
correspondente, conforme os exemplos à 
direita. 


NPU 
Use CODE em lugar de ASC. O TK-83 tem PRINT CODE ("A") 
um código próprio, mas o TK-85 usa o 
código ASCII. 


Para dimensionar uma matriz string, use 
DIM seguido por dois números entre 
parênteses. O primeiro é o número de 
elementos (strings) da matriz; o segundo, o 
número de caracteres da string mais 
comprida. No exemplo à direita, a matriz 
A$ contém cinco strings, sendo que a mais 
comprida tem 12 caracteres. 


READ/DATA: O TK-85 usa READ/DATA como os outros 10 FOR Kz1 TOS 
micros, mas o TK-83 não possui nenhuma 20 INPUT ASCK) 
instrução equivalente. À melhor alternativa 
é usar várias instruções INPUT, como no 30 NEXT K 
exemplo à direita. 
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Indice Remissivo 


N 
y 


Neste índice você encontrará os nomes dos problemas, das instruções de BASIC e das idéias 
discutidas neste livro. Os números das páginas das respostas dos problemas estão impressos em negrito. 


A maior palavra, 17, 38 

A menor palavra, 17, 38 
Afunde o submarino, 26, 42 
Analisando um programa, 7, 34 


ND, 
ASC, 18, 45, 47 
Bar Bado, 23, 41 
Caixa alta/caixa baixa, 18, 39 
Calculador de velocidades, 7, 34 
Calculadora, 12, 36 
Calendário, 25, 41 
Catálogo telefônico, 23, 41 
Centíigrados em Fahrenheit, 7, 34 
CHRS$, 18, 45 
CODE, 18, 45, 47 
Código 

alfabético, 19, 39 

ASCII, 18 

com número-chave, 19, 39 

de inversão, 19, 3 

variável, 19, 39 

comando diretos, 4-5 
Como comparar letras, 18, 39 
Contador binário, 10, 35 
correção de erros, 4-5 
Corrida de cavalos, 13, 36 
DATA, 22, 45 
Decolagem de um foguete, 11, 35 
DELETE, 4 
Descubra os erros, 20, 22, 40, 41 
Desenhando na tela, 9, 35 
desvios, 12 
DIM, 24, 45, 47 
elementos (de uma matriz), 24 
erros, 3, 4 
Erros em loops, 10, 35 
Exame de motorista, 21, 40 
fazendo o computador esperar, 20 
FOR/TO...NEXT, 8-9 
ug a (programa Caça ao Tesouro), 29, 
Fuga do planeta Zorgo, 15, 37 
GET, 20, 47 
GOSUB, 26, 45 
GOTO, 12 
Gráfico de números aleatórios, 25, 42 
IF...THEN, 12-13 
índices, 24 
INKEY$, 20, 45, 47 
INPUT, 6 
INT, 14, 45 
Jogo 

de palavras, 13, 36 

de Papel, Pedra e Tesoura, 15, 38 
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Jogos de adivinhação, 13, 36 
KEY$, 20, 47 
LEFTS$, 16, 45, 47 
LEN, 16, 46 
LET, 6, 46 
LIST, 4, 46 | 
Lista de nomes, 22, 41 
Loop para fazer o programa ficar mais lento, 
loops 
de espera, 9 
internos, 10 
matrizes, 24-25 
Mensagem 
que pisca, 10, 35 
secreta, 9, 35 
MID$, 16, 46, 47 
NEW, 4, 46 
OR, 12 
Pesquisa de sorvete, 26, 42 
PRINT, 4-5, 46 
Programa 
Caça ao Tesouro, 28-33, 43-44 
da máquina caça-níqueis, 27, 42 
das salsichas, 7, 34 
de ginástica, 11, 36 
de sugestões, 25, 42 
READ/DATA, 21, 46, 47 
Relógio digital, 10, 35 
RESTORE, 22, 46 
RETURN, 4-5 
Editor de texto, 17, 38 
RIGHTS, 16, 46, 47 
RND, 14, 46, 47 
RUBOUT, 4 
RUN, 5, 46 
Senha, 12, 36 
Sequência de números, 14, 37 
símbolos matemáticos, 4, 46 
sinais de pontuação, 4 
SPC, 4, 46 
TAB, 4, 46 
Tabuada do 13, 12, 36 
Teste com PRINT, 6, 34 
Testes 
com letras, 18, 39 
com loops, 8, 10-11, 34, 35 
com STEP, 8, 35 
com strings, 16, 38 
Vamos falar pfiano?, 7, 34 
variáveis string, 6-7 
variável bandeira, 31 
Vinte perguntas, 25, 42 
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Duias Práticos de Mcrocomputadores 


O que é capaz de fazer um microcomputador! Calcular, evidentemente, mas tam- 
bém organizar perguntas, escrever poemas, jogar uma quantidade de jogos cada 
qual mais palpitante, até mesmo compor música... Pequenos guias práticos de in- 
trodução à microinformática, as obras desta nova cóleção nos permitem descobrir 
todas as possibilidades que os microcomputadores nos oferecem. Eles nos iniciam 
na linguagem e no funcionamento do computador, na aprendizagem da programa- 
ção e — por que não? — na criação de programas originais: a clareza dos textos, 
a alegria das cores, a graça dos desenhos, tudo é concebido nestes livros para fa- 
zer desta iniciação um prazer 


Estrona TESTA 


Um colorido guia para 
melhor compreendermos os 
microcomputadores — 
como trabalham e o que 
fazem, apresentando idéias 
de coisas que podem ser 

feitas com o micro. . 
Apresenta um utilíssimo guia 
comparativo dos diversos 

micros existentes no 
mercado brasileiro. 


E RARO do qi RR E 


Introduz o leitor na 
programação BASIC, através 
de exemplos didáticos, e é 
sobretudo indicado ao jovem 
que começa a programar 
Substitui com vantagens os 
manuais dos fabricantes. 
Apresenta dezenas de dicas 
utilíssimas para aprimorar a 
técnica de programação. 


Um guia passo a passo de 
ramação para os 
ab mente iniciantes. 
Apresenta as diferentes 
agi e aprofunda no 
IC, incluindo pequenos 
programas, simples e 
divertidos. Profusamente 
ilustrado a cores. 


13 listagens de programas 
de jogos, para serem 
“rodados” nos micros 

pessoais mais difundidos no 
Brasil. Muito útil para 

ensinar o leitor a 
desenvolver seus próprios 

programas. Além disso, é 

um passatempo fascinante. 


13 programas fascinantes e 
ao mesmo tempo simples, 
para todo tipo de 
microcomputadores; Jogos 
Intergaláticos, Módulo Lunar, 
iagem ao Futuro, 
Salvamento no Espaço e 
muitos outros, com 
respostas dos problemas. 


Um verdadeiro caderno a 
cores de problemas e 
exercícios, com jogos e 
quebra-cabeças , ideais 

para todo curso de 
programação em BASIC. 
Todas as respostas e 
explicações estão incluídas, 
para ajudar a esclarecer 
todo e qualquer problema. 


